vba - 外表。将文件夹添加到收藏夹组

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