Termin in einen bestimmten Outlook Kalender eintragen

[Jonny]

Hallo
ich trage mit dem folgenden Code einen Termin in den Standard Outlook Kalender ein:
    Dim outApp As Outlook.Application
    Dim outtest As Outlook.AppointmentItem
    Set outApp = New Outlook.Application
    Set outtest = outApp.CreateItem(olAppointmentItem)

    With outtest
        .Body = "TEST"
        .AllDayEvent = False
        .ReminderMinutesBeforeStart = 60
        .Start = Me!TDatum + Me!TZeit
        '.End = Me!TDatum + Me!TZeitEnde alternative zu Duration
        .Duration = "45"
        .Subject = "Betreff"
        .Save
    End With
Jetzt möchte ich aber den Termin in ein bestimmten Kalender eintragen.
Gruß
Johann

[Hondo]

Schau mal hier:
http://www.herber.de/mailing/Trainingsplan_in_einen_Outlook-Kalender_einlesen.htm

Gruß Andreas

[Jonny]

Hallo Andreas,
vielen Dank für den Tip.
Musste zwar noch ein wenig anpassen aber es funktioniert.
Vielen Dank

Gruß
Johann