Ausblick. Ordner zur Favoritengruppe hinzufügen

Question

Ich arbeite jetzt an Outlook-Makros, um den ausgewählten Ordner zur Favoritengruppe von Outlook hinzuzufügen. Ich habe versucht, diese Methode

Sub AddToFavorites() 
    Dim olapp As Outlook.Application 
    Dim objFolder As Outlook.MAPIFolder 
    Set olapp = New Outlook.Application 
    Set objFolder = olapp.ActiveExplorer.CurrentFolder 
    objFolder.AddToPFFavorites 
End Sub 

Aber AddToPFFavorites Methode wirft verwenden Fehler „Der versuchte Vorgang ist fehlgeschlagen. Ein Objekt kann nicht gefunden werden“.

Ich habe versucht, einen Zielordner zu den Favoriten hinzuzufügen, indem ich die Aktion "In Favoriten anzeigen" aus dem Kontextmenü auswähle, da der Ergebnisordner in der Favoritengruppe ohne Fehler angezeigt wurde.

Meine Frage ist: Wie Ordner zur Favoritengruppe hinzufügen? Was ist VBA-Äquivalent für die Aktion "In Favoriten anzeigen"?

Answer 1

Sie können die Outlook Favoritengruppe verwalten, indem Sie auf das NavigationPane E-Mail-Modul zugreifen.

Outlook.MailModule mailModule = ThisAddIn.Application.ActiveExplorer().NavigationPane.Modules.GetNavigationModule(Outlook.OlNavigationModuleType.olModuleMail) as Outlook.MailModule; 
Outlook.NavigationGroup favGroup = mailModule.NavigationGroups.GetDefaultNavigationGroup(Outlook.OlGroupType.olFavoriteFoldersGroup); 
favGroup.NavigationFolders.Add(objFolder);