首页 文章

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

提问于
浏览 次
5

我现在正在使用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相当于“在收藏夹中显示”操作？

vba outlook favorites

1 回答

  • 5

    您可以通过访问NavigationPane邮件模块来管理Outlook favorites group .

    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);
    回复于

相关问题