Я пробовал решение, опубликованное в этой теме , и хотя оно не выдает ошибку, оно также фактически не добавляет папку в список избранного.
I 'Мы проверили текущих членов группы избранного и определили, что они относятся к типу «NavigationFolder», поэтому я объявил новый NavigationFolder, установил его в одну из моих подпапок и затем попытался добавить это безрезультатно.
В браузере объектов метод добавления выглядит допустимым, а синтаксис требует, чтобы ему была передана папка - имеет ли значение, что передаваемые мной папки относятся к типам объектов 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 (если он существует в почтовом ящике), однако ни один из тех, что я пробовал, не работает.
Я ожидаю, что папкаЯ указываю быть добавленным в группу избранного.
На самом деле происходит то, что код выполняется, ошибки нет, но также нет добавления в группу избранного.