Dim oOutlookApp As Outlook.Application
Dim oOutlookTermin As Outlook.AppointmentItem
 
Set oOutlookApp = CreateObject("Outlook.Application")
Set oOutlookTermin = oOutlookApp.CreateItem(olAppointmentItem)
 
With oOutlookTermin
    .Start = dtStart
    .End = dtEnde
    .Duration = intDauer
    .Subject = strBetreff
    .Body = strKommentar
    .ReminderSet = bolErinnerung
    .ReminderMinutesBeforeStart = intErinnerungMinuten
    .MeetingStatus = olMeeting
    .Display
Jetzt würde ich gerne den Empfänger eintregen
und versenden ?????

End With
 
Set oOutlookApp = Nothing
Set oOutlookTermin = Nothing
Set oMail = Nothing
End Function