6

現在、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とは何ですか？

4

1 に答える 1

6

You can manage the Outlook favorites group by accessing the NavigationPane mail module.

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);
于 2012-10-17T16:28:06.913 に答える