Guten Tag zusammen,

folgender Code

Sub KalenderZuPFFavoriten()
  
 'Adds a Public Folder to the List of favorites
  
 Dim objFolder As Outlook.Folder
  
 Set objFolder = Application.Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item("Konferenzräume - Belegungspläne")
  
 'objFolder.AddToPFFavorites
 If objFolder.Folders.Count > 0 Then
    For Each objSubFolder In objFolder.Folders
        'objNavigationGroup.NavigationFolders.Add objSubFolder
        objFolder.AddToPFFavorites
    Next
 End If
 MsgBox "Die Belegungspläne für die Besprechungsräume sollten nun unter ANDERE KALENDER in der Kalenderansicht zu sehen sein.", vbOKOnly, Hinweis
End Sub

fügt korrekt eine Reihe von öffentlichen Kalendern in der PF-Struktur den dortigen Favoriten hinzu.

Das Problem ist, dass im Outlook-Kalendermodul eine Aktualisierung nur erfolgt -die favorisierten PF-Kalender erscheinen nur dann unter "Andere Kalender"- wenn man die öffentlichen Ordner einmal besucht hat nach dem Hinzufügen.

Ich habe im Internet einen Beispielcode gefunden:

Sub Kalender()
Dim objModule As CalendarModule
 Dim objGroup As NavigationGroup
 Dim objFolder As NavigationFolder
 Dim intCounter As Integer
 
 On Error GoTo ErrRoutine
 
 ' Get the NavigationPane object for the
 ' currently displayed Explorer object.
 Set objPane = Application.ActiveExplorer.NavigationPane
 
 ' Get the CalendarModule object, if one exists,
 ' for the current Navigation Pane.
 Set objModule = (olModuleCalendar)
 
 ' Iterate through each NavigationGroup contained
 ' by the CalendarModule.
 For Each objGroup In objModule.NavigationGroups
 ' Iterate through each NavigationFolder contained
 ' by the NavigationGroup.
 MsgBox objGroup.Name
 For Each objFolder In objGroup.NavigationFolders
 ' Check if the folder is selected.
 MsgBox objFolder.DisplayName
 If objFolder.IsSelected Then
 intCounter = intCounter + 1
 End If
 Next
 Next
 
 ' Display the results.
 MsgBox "There are " & intCounter & " selected calendars in the Calendar module."
 
EndRoutine:
 On Error GoTo 0
 Set objFolder = Nothing
 Set objGroup = Nothing
 Set objModule = Nothing
 Set objPane = Nothing
 intCounter = 0
 Exit Sub
 
ErrRoutine:
 MsgBox Err.Number & " - " & Err.Description, _
 vbOKOnly Or vbCritical, _
 "EnumerateActiveCalendarFolders"
End Sub

Ich hoffte, durch den Beispielcode eine Möglichkeit zu finden, wie ich PFFavorites zu "other Calendars" hinzufügen kann, aber ich fand keine brauchbare Methode.

Ich glaube bisher zu wissen, dass die Navigationpane verschiedene Module enthält und jedes Modul mind. eine NavigationGroup die wiederrum verschiedene NavigationFolder enthält. Ich habe allerdings keine Methode erkannt, um die Kalender hinzuzufügen.

Hat jemand von Euch einen brauchbaren Ratschlag?