将公用文件夹添加到我的收藏夹

Question

我正在寻找一个VBA脚本，以自动将公用文件夹添加到Outlook 365中的“收藏夹”文件夹中（以后再将其添加为GPO）。我发现了多个这样的脚本：

cells

坦白地说：我以前没有使用过VBA，所以我不知道代码本身是否正确...但是当我开始运行脚本时，它总是弹出一个窗口，在该窗口中应显示一个“宏名称”：

当我输入宏名称并按“运行”时，它会显示“编译错误无效的外部过程”。

你能告诉我我在做什么错吗？

Answer 1

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

    Dim mailModule as Outlook.MailModule 
    Set mailModule = Application.ActiveExplorer().NavigationPane.Modules.GetNavigationModule(Outlook.OlNavigationModuleType.olModuleMail)
    Dim favGroup as Outlook.NavigationGroup  
    Set favGroup = ailModule.NavigationGroups.GetDefaultNavigationGroup(Outlook.OlGroupType.olFavoriteFoldersGroup)
    favGroup.NavigationFolders.Add(objFolder)

在Add a Folder to the Favorite Folders Group文章中了解有关此内容的更多信息。

此外，您可能会发现Folder.AddToPFFavorites方法对将Microsoft Exchange公用文件夹添加到公用文件夹的“收藏夹”文件夹很有帮助。