将文件夹添加到“收藏夹”组的方法不起作用或引发错误

Question

我已经尝试过在this thread中发布的解决方案，尽管它不会引发错误，但实际上也不会将该文件夹添加到收藏夹列表中。

我检查了收藏夹组的当前成员，并确定它们属于“ NavigationFolder”类型，因此我声明了一个新的NavigationFolder，将其设置为我的子文件夹之一，然后尝试将其添加为no有用。

在object browser中，add方法显示为有效，并且语法要求将文件夹传递给它-我传递的文件夹是Folder / MAPIFolder对象类型是否重要？

Dim MailModule As Outlook.MailModule

Dim favGroup As Outlook.NavigationGroup

Set MailModule = Application.ActiveExplorer.NavigationPane.Modules.GetNavigationModule(olModuleMail)

Set favGroup = MailModule.NavigationGroups.GetDefaultNavigationGroup(olFavoriteFoldersGroup)

favGroup.NavigationFolders.Add (mainDir)

“ mainDir”可以是您喜欢的任何Folder / MAPIFolder对象（假设它存在于邮箱中），但是我尝试过的任何对象似乎都没有作用。

我希望将我指定的文件夹添加到收藏夹组。

实际上发生的是代码被执行了，没有错误，但是收藏夹组也没有添加。