使用VBA重命名Outlook 2016中的NavigationFolder

我想做的是：

创建一个新的日历组

获取共享日历并放入1

重命名共享日历

代码是：

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

'Create a recipient "John Smith"
Set outlookObj = CreateObject("Outlook.Application")
Set namespaceObj = outlookObj.GetNamespace("MAPI")
Set recipientObj = namespaceObj.CreateRecipient("John Smith")

'Create a new calendar group
Set paneObj = Application.ActiveExplorer.NavigationPane
Set moduleObj = paneObj.Modules.GetNavigationModule(olModuleCalendar)
Set navGroupObj = moduleObj.NavigationGroups.Create("NewCalendarGroup")

If(recipientObj.Resolved) Then
    'Add a shared calendar into "NewCalendarGroup"
    Set folderObj = namespaceObj.GetSharedDefaultFolder(recipientObj, olFolderCalendar)
    Set navFolderObj = navGroupObj.NavigationFolders.Add(folderObj)

    'Rename the shared calendar
    navFolderObj.DisplayName = "John's calendar"  'error
End If

但是，由于是只读的，Outlook在此行显示错误：

'Rename the shared calendar
navFolderObj.DisplayName = "John's calendar"  'error

---

我可以右键单击日历并在屏幕上重命名它，但如何使用VBA执行相同的操作？有没有办法更改只读的DisplayName？

多年后的某一天，我们可能会有一个答案。或者不是。