mit folgender Konstruktion lese ich Outlookkalender anderer Kollegen ein:
For Zeile = 1 To LZei
Set AktKollege = AlleKollegen.CreateRecipient(Sheets("Kollegen").Cells(Zeile2, 1))
AktKollege.Resolve
If AktKollege.Resolved Then
Set KalenderEintrag = AlleKollegen.GetSharedDefaultFolder(AktKollege, olFolderCalendar)
KalenderEintrag.Items.IncludeRecurrences = True
Set Gefiltert = KalenderEintrag.Items.Restrict("[BusyStatus] 0")
For Each SatzGefunden In Gefiltert
Das funktioniert mit allen Terminen und Serienterminen auch gut.
Mit dieser Konstruktion erwische ich aber keine privaten Termine der Kollegen - es sei denn, sie haben mir bei den Stellvertreterrechten auch das Ansehen privater Termine erlaubt.
Ich will ja nicht den Inhalt der privaten Termine sehen, sondern nur - wie in der Outlookkalenderansicht - ob der Kollege eine bestimmte Zeitspanne blockiert hat.
Geht das überhaupt - und wenn ja - wie?
Viele Grüße
Ulrich