Option Explicit
' ************************************************************************************************
' Autor/en: http://www.online-vba.de - Marc Wershoven
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von www.online-vba.de!
' Original-Quelltext: www.online-vba.de/vba_createterminoutlook.php
' ************************************************************************************************

Sub MWTermin2Outlook()
   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