Dim outApp As Outlook.Application
Dim outtest As Outlook.AppointmentItem
Set outApp = New Outlook.Application
 
Set outtest = outApp.CreateItem(olAppointmentItem)
With outtest
   outtest.Body = "ABC Test"
   outtest.AllDayEvent = True
   outtest.ReminderMinutesBeforeStart = 60
   'outtest.ReplyTime = 120
   'outtest.ReminderOverrideDefault = true
   outtest.ReminderSet = False 'Erinnernung aktivieren
   outtest.Start = CDate("19.2.2005")
   outtest.End = CDate("27.2.2005")
   outtest.Subject = "Eintrag von Test"
   'outtest.s
   outtest.Categories = "Test ABC"
   outtest.Save
   'outtest.Delete
End With