Kalender Eintrag in freigegebenen Kalender setzen

30/09/2009 - 15:05 von Andreas Sperling | Report spam
Hallo NG,
ich habe folgenden Code gefunden um einen Kalendereintrag aus Access in
Outlook zu schreiben.
Dies funktioniert wirklich sehr gut.
Kann mir nun jemand helfen diesen Code so umzuschreiben das ich in einem
Freigegebenen Kalender schreiben kann.
Ich habe zum Beispiel unter Andere Kalender den Mueller, Franz und den
Meier, Bernd Kalender
Ich habe mit dem Objekt GetSharedDefaultFolder versucht, bin aber leider zu
keinem Ergebnis gekommen.


Public Function createOLCalendarEntry( _
dteDateTimeFrom As Date, _
dteDateTimeTo As Date, _
strSubject As String) As Boolean

Dim appOL As New Outlook.Application
Dim itm As Outlook.AppointmentItem
Dim nsp As Outlook.Namespace
Dim fld As Outlook.MAPIFolder

Set nsp = appOL.GetNamespace("MAPI")
Set fld = nsp.GetDefaultFolder(olFolderCalendar)
Set itm = Outlook.CreateItem(olAppointmentItem)

itm.Start = dteDateTimeFrom
itm.End = dteDateTimeTo
itm.Subject = strSubject
itm.Save

Set itm = Nothing
Set fld = Nothing
Set nsp = Nothing

createOLCalendarEntry = True

End Function




Danke
Andreas
 

Lesen sie die antworten

#1 Mark Doerbandt
30/09/2009 - 16:36 | Warnen spam
Hallo, Andreas,

Andreas Sperling:

ich habe folgenden Code gefunden um einen Kalendereintrag aus Access in
Outlook zu schreiben.
Dies funktioniert wirklich sehr gut.
Kann mir nun jemand helfen diesen Code so umzuschreiben das ich in einem
Freigegebenen Kalender schreiben kann.
Ich habe zum Beispiel unter Andere Kalender den Mueller, Franz und den
Meier, Bernd Kalender
Ich habe mit dem Objekt GetSharedDefaultFolder versucht, bin aber leider zu
keinem Ergebnis gekommen.

Set fld = nsp.GetDefaultFolder(olFolderCalendar)



das ist die Zeile, in der Du ansetzen musst. Hast Du mal

Set fls = nps.GetFolderFromID("unique MAPI-ID Deines Folders")

probiert? Alternativ sollte auch .GetSharedDefaultFolder gehen, aber
da brauchst Du erst den Recipient.

Gruss - Mark

Ähnliche fragen