Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_createtaskoutlook.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.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