Hallo

Wie kann man mittels VBA Termine in Outlook schreiben. Ich benutze diesen Code:

Public Function TerminNachOutlook(dtStart As String, intDauer As Integer, _
strBetreff As String, strKommentar As String, bolErinnerung As Boolean, _
strErinnerungMinuten As Integer) As Boolean

On Error GoTo FehlerBehandlung
    Dim oOutlookApp As Outlook.Application
    Dim oOutlookTermin As Outlook.AppointmentItem
    
    dtStart = Format(dtStart, "dd.mm.yyyy") & " 10:00"
    
    
    Set oOutlookApp = CreateObject("Outlook.Application")
    Set oOutlookTermin = oOutlookApp.CreateItem(olAppointmentItem)
    With oOutlookTermin
        .Start = dtStart
        .Duration = intDauer
        .Subject = strBetreff
        .Body = strKommentar
        .ReminderSet = bolErinnerung
        .ReminderMinutesBeforeStart = intErinnerung
        .Save
    End With
    Set oOutlookTermin = Nothing
    Set oOutlookApp = Nothing
    
    Exit Function
FehlerBehandlung:
    MsgBox Err.Description

End Function

Funktioniert alles einwandfrei. Das Problem dabei ist nur, dass Outlook geöffnet sein muss. Gibt es eine Möglichkeit Termine festzulegen ohne vorher Outlook zu starten.

Gruß maxim66