Folder.AddToPFFavorites方法在Office2024 64位下失效，求VBA解决方案

原有的Folder.AddToPFFavorites方法在64位Outlook 2024中无法正常工作，可通过以下VBA代码替代，直接将公共文件夹的快捷方式添加到收藏夹中：

Sub AddPublicFolderToFavorites()
    Dim olApp As Outlook.Application
    Dim olNS As Outlook.Namespace
    Dim publicFolder As Outlook.Folder
    Dim favoritesFolder As Outlook.Folder
    Dim folderShortcut As Outlook.FolderShortcut
    
    Set olApp = Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    
    ' 替换为目标公共文件夹的实际路径，示例格式："\\你的组织名\公共文件夹\具体文件夹"
    Set publicFolder = olNS.Folders("公共文件夹").Folders("需要添加的文件夹")
    
    ' 获取Outlook收藏夹的根容器
    Set favoritesFolder = olNS.GetDefaultFolder(olFolderFavorites)
    
    ' 创建新的文件夹快捷方式
    Set folderShortcut = favoritesFolder.Items.Add(olFolderShortcut)
    ' 将快捷方式关联到目标公共文件夹
    Set folderShortcut.ShortcutFolder = publicFolder
    ' 可选：自定义快捷方式显示名称，不设置则使用原文件夹名称
    folderShortcut.Name = "收藏的公共文件夹"
    
    ' 保存更改
    folderShortcut.Save
    
    ' 释放对象
    Set olApp = Nothing
    Set olNS = Nothing
    Set publicFolder = Nothing
    Set favoritesFolder = Nothing
    Set folderShortcut = Nothing
End Sub

注意事项 #

• 请根据实际环境修改代码中公共文件夹的层级路径，可在Outlook界面中查看公共文件夹的结构确认路径
• 确保当前用户对目标公共文件夹拥有访问权限
• 64位Outlook中无需额外配置VBA引用，默认已包含Outlook对象库

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