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

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

您可以通过访问NavigationPane邮件模块来管理Outlook 收藏夹组。

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