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

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相当于"Show in Favorites"动作？

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