Public Sub MakeTerm(ByVal sTermin As Date, ByVal sBetreff As String)
   Dim objTerm As AppointmentItem
 
   Set objTerm = Outlook.Application.CreateItem(olAppointmentItem)
   With objTerm
      .Start = sTermin
      .Subject = sBetreff
      .Categories = "aaa"
      .ReminderMinutesBeforeStart = 0 'keine Erinnerung
      .ReminderSet = False
      .Save
   End With
 
   Set objTerm = Nothing
End Sub