Sorry. Das sieht dann so aus:
Private Const REMINDER_SUBJECT As String = „WeeklyMailReminder“
Private Sub Application_Reminder(ByVal Item As Object)
SendMailInReminderIntervals Item
End Sub
Private Sub SendMailInReminderIntervals(Item As Object)
Dim oTask As Outlook.TaskItem
Dim oMail As Outlook.MailItem
Dim oFld As Outlook.MAPIFolder
Const TEMPLATE_SUBJECT As String = „Daily Mail“
Const TEMPLATE_ADR As String = „[email protected]“
Const TEMPLATE_BODY As String = „Hallo Herr XXX,“
bitte teilen Sie uns die Anzahl der Leergut-Paletten die am Montag zu holen sind mit.
Vielen Dank
Mit freundlichen Grüßen
Patrick Eschner
__________________________________________
C & L Service GmbH
Salvatorstr. 15a
85290 Geisenfeld -Nötting
Telefon: +49 8456 - 91 54 39
Telefax: +49 8456 - 91 60 65
E -Mail: Patrick.Eschner@ c - l - service.DE
Internet: http://www.c-l-service.de
__________________________________________
Geschäftsführer Heiko Eschner
Amtsgericht Pfaffenhofen a.d.Ilm
Handelsregisterbuch 4592
Ust-Id-Nr. DE 247486292
Steuer-Nr. 124/123/50489
"
If TypeOf Item Is Outlook.TaskItem Then
Set oTask = Item
If oTask.Subject = REMINDER_SUBJECT Then
oTask.ReminderTime = DateAdd(„d“, 1, oTask.ReminderTime)
oTask.Save
Set oMail = Application.CreateItem(olMailItem)
oMail.Subject = TEMPLATE_SUBJECT
oMail.Body = TEMPLATE_BODY
oMail.Recipients.Add TEMPLATE_ADR
oMail.Recipients.ResolveAll
oMail.Send
End If
End If
End Sub