Outlook Aufgabe in Excel erstellen

Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/outlook-aufgabe-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_Aufgabe2Outlook()
  Dim oOutlookApp As Object
  Dim oAufgabe As Object
    
    'Verbindung/Referenz zu Outlook
    Set oOutlookApp = CreateObject("Outlook.Application")
    
    'Aufgabe erzeugen
    Set oAufgabe = oOutlookApp.CreateItem(3)
    
    'Aufgabe Einstellungen vornehmen
    With oAufgabe
        'Starttermin (hier bswp.: Heute in 14 Tagen um 10 Uhr)
        .StartDate = Format(Now() + 14, "dd.mm.yyyy") & " 10:00"
        'Betreff, Titel
        .Subject = "Automatisch erzeugte Aufgabe mit VBA!"
        'Inhalt
        .Body = "Dies ist eine automatisch erzeugte Aufgabe mit VBA!"
        'Erinnerung setzen
        .ReminderTime = Format(Now() + 14, "dd.mm.yyyy") & " 10:00"
        .ReminderSet = True
        'Speichern
        .Save
        'Anzeigen
        .Display
    End With
    
    Set oAufgabe = Nothing
    Set oOutlookApp = Nothing
End Sub