Mails automatisiert mit Anhang verschicken per Outlook VBA-Skript

Hallo liebe Leute,

habe ein kleines VBA Skript welches automatisiert Mails verschicken soll.
Dafür wird Outlook 2007 verwendet. Mein Problem ist, dass es im Internet immer heißt "Legen Sie eine Erinnerung im Kalender mit Aussagekräftigen Namen an" oder Legen Sie eine Aufgabe an ....
Damit kann ich als "nicht VBA" experte leider nichts anfangen ....
Daher hoffe ich, dass mir jemand weiterhelfen kann und mich aufklären kann.
Über eine Antwort würde ich mich sehr freuen!

Der VBA Code:

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 = "DailyMailReminder"

'Email
SendTo = "blabla@DeineDomäne.de"
EmailSubject = "Test"
Message = "this message was sent automatically"

If TypeOf Item Is Outlook.TaskItem Then
Set oTask = Item
If LCase$(oTask.Subject) = LCase$(ReminderSubject) Then

'Set next reminder
oTask.ReminderTime = DateAdd("d", 1, oTask.ReminderTime)
oTask.Save

'Create email
Set oMail = Application.CreateItem(olMailItem)
oMail.Subject = EmailSubject
oMail.Body = Message
oMail.Recipients.Add SendTo
oMail.Recipients.ResolveAll
oMail.Attachments.Add "Z:\Test.txt"
oMail.Send
End If
End If
End Sub

If LCase$(oTask.Subject) = LCase$(ReminderSubject) Then