Makro Outlook E-Mail versenden

Private Sub Application_Reminder(ByVal Item As Object)
SendAutoEmail Item
End Sub
Private Sub SendAutoEmail(Item As Object)
Dim oTask As Outlook.TaskItem
Dim oMail As Outlook.MailItem
Dim oFld As Outlook.MAPIFolder
Dim ReminderSubject As String
Dim EmailSubject As String
Dim SendTo As String
Dim Message As String
'Task item
ReminderSubject = "MonatlicheErinnerung"
'Email
SendTo = "test@test.de"
EmailSubject = "Beispiel"
Message = "diese nachricht wurde automatisch versandt"
If TypeOf Item Is Outlook.TaskItem Then
Set oTask = Item
If LCase$(oTask.Subject) = LCase$(ReminderSubject) Then
oTask.ReminderTime = DateAdd("d", 1, oTask.ReminderTime)
oTask.Save
Set oMail = Application.CreateItem(olMailItem)
oMail.Subject = EmailSubject
oMail.Body = Message
oMail.Recipients.Add SendTo
oMail.Recipients.ResolveAll
oMail.Send
End If
End If
End Sub

  SendTo = "test1@test.de ; test2@test.de"