Outlook. Aggiungi cartella al gruppo preferiti

Question

Attualmente sto lavorando su macro di Outlook per aggiungere la cartella selezionata al gruppo preferiti di Outlook. Ho cercato di utilizzare questo metodo

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 

Ma metodo AddToPFFavorites genera un errore "L'operazione tentata non è riuscita. Un oggetto non è stato trovato".

Ho provato ad aggiungere la cartella di destinazione ai preferiti utilizzando l'azione "Mostra in Preferiti" dal menu di scelta rapida, poiché la cartella dei risultati è stata mostrata nel gruppo Preferiti senza errori.

La mia domanda è: Come aggiungere una cartella al gruppo dei preferiti? Qual è l'equivalente VBA per l'azione "Mostra in Preferiti"?

Answer 1

È possibile gestire il gruppo di preferiti di Outlook accedendo al modulo di posta 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);