Outlook Termin in Excel erstellen

Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/outlook-termin-in-excel-erstellen
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de

Public Sub OVBAde_Termin2Outlook()
  Dim oOutlookApp As Object
  Dim oTermin As Object
    
    'Verbindung/Referenz zu Outlook
    Set oOutlookApp = CreateObject("Outlook.Application")
    
    'Termin erzeugen
    Set oTermin = oOutlookApp.CreateItem(1)
    
    'Termin Einstellungen vornehmen
    With oTermin
        'Starttermin (hier bswp.: Heute in 14 Tagen um 10 Uhr)
        .Start = Format(Now() + 14, "dd.mm.yyyy") & " 10:00"
        'Betreff, Termintitel
        .Subject = "Automatisch erzeugter Termin mit VBA!"
        'Inhalt des Termins
        .Body = "Dies ist ein automatisch erzeugter Termin mit VBA!"
        'Ort
        .Location = "noch offen"
        'Dauer in Minuten
        .Duration = "60"
        'Erinnerung vor Start in Minuten
        .ReminderMinutesBeforeStart = 10
        'Sound abspielen
        .ReminderPlaySound = True
        'Erinnerung setzen
        .ReminderSet = True
        
        'Speichern
        .Save
        'Anzeigen
        .Display
        
    End With
    
    Set oTermin = Nothing
    Set oOutlookApp = Nothing
End Sub