Outlook. Dodaj folder do ulubionych grupy

Question

Pracuję teraz nad makrami Outlooka, aby dodać wybrany folder do grupy ulubionych Outlooka. Próbowałem użyć tej metody

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 

Ale metoda AddToPFFavorites wyrzuca błąd „Próba operacja nie powiodła się. Obiekt nie został znaleziony”.

Próbowałem dodać folder docelowy do ulubionych przy użyciu akcji "Pokaż w ulubionych" z menu kontekstowego, ponieważ folder wyników został pokazany w grupie Ulubione bez błędów.

Moje pytanie brzmi: Jak dodać folder do ulubionych? Co to jest odpowiednik VBA dla akcji "Pokaż w ulubionych"?

Answer 1

Możesz zarządzać grupą ulubionych Outlook , uzyskując dostęp do modułu pocztowego NavigationPane.

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);