CODE-SCHNIPSEL

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