Outlook 2016 VBA重命名共享日历NavigationFolder只读问题求解

问题分析 #

你碰到的这个问题很常见：虽然手动右键共享日历就能轻松重命名，但NavigationFolder.DisplayName是只读属性，直接赋值会触发运行时错误。这是因为该属性直接绑定了共享文件夹的原始显示名，无法直接修改。而手动操作时，Outlook实际上是修改了文件夹底层的MAPI属性，我们可以通过VBA访问这个属性来实现相同效果。

解决方案：修改MAPI属性PR_DISPLAY_NAME #

我们可以使用Outlook的PropertyAccessor对象，直接修改共享文件夹的PR_DISPLAY_NAME（MAPI属性ID：http://schemas.microsoft.com/mapi/proptag/0x3001001F），这样就能同步更新导航栏中的显示名称，和手动操作效果完全一致。

完整修正后的VBA代码 #

Dim outlookObj As Outlook.Application
Dim namespaceObj As NameSpace
Dim recipientObj As Outlook.Recipient
Dim paneObj As Outlook.NavigationPane
Dim moduleObj As Outlook.CalendarModule
Dim navGroupObj As Outlook.NavigationGroup
Dim navFolderObj As Outlook.NavigationFolder
Dim folderObj As Folder
Dim propAccessor As Outlook.PropertyAccessor
Const PR_DISPLAY_NAME As String = "http://schemas.microsoft.com/mapi/proptag/0x3001001F"

' 创建收件人"John Smith"
Set outlookObj = CreateObject("Outlook.Application")
Set namespaceObj = outlookObj.GetNamespace("MAPI")
Set recipientObj = namespaceObj.CreateRecipient("John Smith")

' 创建新日历组
Set paneObj = Application.ActiveExplorer.NavigationPane
Set moduleObj = paneObj.Modules.GetNavigationModule(olModuleCalendar)
Set navGroupObj = moduleObj.NavigationGroups.Create("NewCalendarGroup")

If recipientObj.Resolved Then
    ' 将共享日历添加到"NewCalendarGroup"
    Set folderObj = namespaceObj.GetSharedDefaultFolder(recipientObj, olFolderCalendar)
    Set navFolderObj = navGroupObj.NavigationFolders.Add(folderObj)
    
    ' 使用PropertyAccessor修改PR_DISPLAY_NAME属性实现重命名
    Set propAccessor = folderObj.PropertyAccessor
    propAccessor.SetProperty PR_DISPLAY_NAME, "John's calendar"
    
    ' 刷新导航面板以立即显示新名称
    moduleObj.NavigationGroups.Refresh
End If

关键说明 #

1. PR_DISPLAY_NAME属性：这是Outlook用来存储文件夹显示名称的底层MAPI属性，修改它会直接同步到导航栏的显示效果，和手动重命名逻辑完全一致。
2. 权限与同步：这个修改只会在本地Outlook客户端生效，不会同步到Exchange服务器或共享者的日历设置，因此不需要对共享日历拥有编辑权限。
3. 刷新操作：调用NavigationGroups.Refresh可以确保新名称立即显示，避免需要手动切换视图或重启Outlook。

内容的提问来源于stack exchange，提问作者LPMR