Outlook VBA使用公用存储文件夹

我正在尝试将事件添加到公共存储中的outlook日历中，例如不属于任何特定用户的PF存储

如何引用该文件夹日历以处理其中的项目

按路径枚举，下面的代码需要大约两分钟的时间才能到达我想要的文件夹，然后我无法在原始子例程中设置对它的引用

枚举改编自

---

完整路径为：\\Public Folders-currentuser@domain.com\所有公用文件夹\Sub-Location\Department\Division\Work Group\Planning Calendar

引用公用文件夹：\Public Folders-currentuser@domain.com\所有公用文件夹\子位置\部门\部门\工作组\计划日历

Set PbFldr = GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders)
Set PbFldr = PbFldr.Folders("Sub-Location")
Set PbFldr = PbFldr.Folders("Department")
Set PbFldr = PbFldr.Folders("Division")
Set PbFldr = PbFldr.Folders("Work-Group")
Set PbFldr = PbFldr.Folders("Planning-Calendar")

---

这个很好用！是否可以在outlook打开时创建对此文件夹的全局引用，以便在其他Marco运行时立即可用？请尝试在标准模块中声明为全局变量，然后在此OutlookSession中在应用程序启动时引用。如果有问题，创建一个新问题。

Set PbFldr = GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders)
Set PbFldr = PbFldr.Folders("Sub-Location")
Set PbFldr = PbFldr.Folders("Department")
Set PbFldr = PbFldr.Folders("Division")
Set PbFldr = PbFldr.Folders("Work-Group")
Set PbFldr = PbFldr.Folders("Planning-Calendar")