Hallo zusammen,
Habe das gleiche schon gestern auf herber gepostet. Kann mir hier jemand weiterhelfen?
untenstehender Code soll das Datum aus Spalte I überprüfen. Wenn es alter als 7 Tage ist, dann soll eine mail generiert werden und im Body sollen alle Kunden (die sind in Spalte A) als Body eingefügt werden.
Geht das alles ohne, dass ich das makro laufen lassen muss. Ich meine z.B. jeden morgen um 08:00 Uhr ohne das die datei geöffnet wird?
einmal mehr, vielen vielen dank!
Dim i As Date
Dim letzte As Date
For i = 4 To 15
Cells(i, 9).Select
If Format(Cells(i, 9), "dd.mm.yy") < Format(Now() - 7, "dd.mm.yy") Then
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "mail-adresse"
.Subject = "Ablauf Recon-Date!" & Cells(8, 1).Value
.body = "Hallo Jürg," & vbCrLf & "Untenstehende Kunden sind seit 7 Tagen nicht mehr _
angeschaut worden: ":
.display
SendKeys "~", True
SendKeys "^{END}", True
SendKeys "{ENTER}", True
SendKeys "^v", True
SendKeys "~", True
End With
signature = OutMail.body
On Error GoTo 0
OutApp.Session.Logoff
Set OutMail = Nothing
Set OutApp = Nothing
Else
'brauchts glaube ich nicht
Eend If
Next i
End Sub
|