Supportnet / Forum / Datenbanken
Wie kann man mittels VBA Termine in Outlook schreiben
Frage
Hallo
Wie kann man mittels VBA Termine in Outlook schreiben. Ich benutze diesen Code:
[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[/code]
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