如何通过Outlook VBA访问公共联系人文件夹？

原来的olookfldr.Folders("FolderName")无法找到目标文件夹，是因为该方法仅能访问当前邮箱账户下的本地或已映射文件夹，远程公共文件夹不在这个集合范围内。以下是两种可行的实现方法：

方法一：通过公共文件夹根目录遍历查找 #

先获取公共文件夹的根目录，再逐级定位到目标联系人文件夹：

Public Sub AccessPublicContactsFolder()
    Dim oNamespace As NameSpace
    Dim oPublicRoot As Folder
    Dim oTargetFolder As Folder
    
    Set oNamespace = Application.GetNamespace("MAPI")
    ' 获取公共文件夹根目录
    Set oPublicRoot = oNamespace.GetDefaultFolder(olPublicFoldersAllPublicFolders)
    
    ' 逐级定位到目标文件夹（替换为实际的层级路径）
    Set oTargetFolder = oPublicRoot.Folders("联系人文件夹所在的父文件夹").Folders("目标联系人文件夹名称")
    
    ' 验证并操作文件夹
    If Not oTargetFolder Is Nothing Then
        oTargetFolder.Display
        ' 这里可以添加读取联系人内容的逻辑
    Else
        MsgBox "未找到目标公共联系人文件夹，请检查名称或路径是否正确"
    End If
    
    ' 释放对象
    Set oTargetFolder = Nothing
    Set oPublicRoot = Nothing
    Set oNamespace = Nothing
End Sub

方法二：使用OpenSharedFolder直接打开 #

如果知道公共文件夹的唯一标识或路径，可直接调用OpenSharedFolder：

Public Sub OpenPublicContactsFolder()
    Dim oNamespace As NameSpace
    Dim oFolder As Folder
    
    Set oNamespace = Application.GetNamespace("MAPI")
    ' 替换为目标公共联系人文件夹的实际路径或URL
    Set oFolder = oNamespace.OpenSharedFolder("webcal:\\_PUBLICA-AM\公共联系人文件夹路径")
    
    If Not oFolder Is Nothing Then
        oFolder.Display
        ' 执行读取联系人等操作
    End If
    
    Set oFolder = Nothing
    Set oNamespace = Nothing
End Sub

注意事项 #

• 确保当前Outlook账户拥有访问该公共联系人文件夹的权限
• 路径或文件夹名称需完全匹配，注意大小写和特殊字符
• 如果公共文件夹层级较深，方法一的逐级定位更可靠，避免路径错误

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