Serientermin in Outlook

Sub Term_Outl()
Dim myOLApp As Object
Dim myItem As Object
Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.CreateItem(1)
With myItem
.Subject = "Arbeitszeiterfassungsbogen abgeben"
.Body = "Der Arbeitszeiterfassungsbogen muss bis zum 5.ten Werktag bei xxxxxxxx sein"
.Start = "01.01.2010" & " 08:00"
.Duration = "10"
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
Set myOLApp = Nothing
Set myItem = Nothing
End Sub