Outlook。お気に入りグループにフォルダを追加

Question

私は今Outlookのお気に入りグループに選択したフォルダを追加するためにOutlookマクロで作業しています。 私はこの方法

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 

を使用することを試みた。しかしAddToPFFavoritesメソッドは「しようとした操作が失敗しました。オブジェクトが見つかりませんでした」というエラーがスローされます。

結果フォルダがエラーなしでお気に入りグループに表示されているので、コンテキストメニューから[お気に入りに表示]アクションを使用して、お気に入りフォルダにお気に入りフォルダを追加しようとしました。

私の質問は お気に入りグループにフォルダを追加するにはどうすればいいですか？ 「お気に入りに表示」アクションと同等のVBAは何ですか？

Answer 1

Outlook お気に入りグループを管理するには、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);