Outlook VSTO插件：DASL查询联系人邮箱地址的属性错误问题

核心问题修正：正确的联系人邮箱DASL属性路径 #

你通过Outlook Spy找到的http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/8083001F是正确的，它对应联系人界面的第一个电子邮件地址字段。但单独用0x8083001F无法被识别，必须使用完整带GUID的DASL路径。

另外，联系人通常有3个可填写的邮箱字段，对应属性分别是：

• 电子邮件1：8083001F
• 电子邮件2：8093001F
• 电子邮件3：80A3001F

如果要统计所有可能出现的邮箱，需要同时过滤这三个属性。

正确的DASL过滤器写法 #

单邮箱字段过滤 #

filterStr = "@SQL=" & Chr(34) & "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/8083001F" & Chr(34) & " = 'target@example.com'"

多邮箱字段联合过滤（OR逻辑） #

filterStr = "@SQL=" & Chr(34) & "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/8083001F" & Chr(34) & " = '" & targetEmail & "' OR " & _
            Chr(34) & "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/8093001F" & Chr(34) & " = '" & targetEmail & "' OR " & _
            Chr(34) & "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-0000000000046}/80A3001F" & Chr(34) & " = '" & targetEmail & "'"

完整遍历所有账户的联系人统计代码（VBA示例） #

Sub CountTargetEmailInAllContacts()
    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim olAccount As Outlook.Account
    Dim olContacts As Outlook.Folder
    Dim filteredItems As Outlook.Items
    Dim targetEmail As String
    Dim totalOccurrences As Integer
    
    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    targetEmail = "your-target-email@domain.com"  ' 替换为目标邮箱
    totalOccurrences = 0
    
    ' 构建覆盖三个邮箱字段的过滤器
    Dim filterStr As String
    filterStr = "@SQL=" & Chr(34) & "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/8083001F" & Chr(34) & " = '" & targetEmail & "' OR " & _
                Chr(34) & "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/8093001F" & Chr(34) & " = '" & targetEmail & "' OR " & _
                Chr(34) & "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/80A3001F" & Chr(34) & " = '" & targetEmail & "'"
    
    ' 遍历所有POP/IMAP/Exchange账户
    For Each olAccount In olNs.Accounts
        On Error Resume Next
        ' 获取当前账户对应的默认联系人文件夹
        Set olContacts = olAccount.DeliveryStore.GetDefaultFolder(olFolderContacts)
        On Error GoTo 0
        
        If Not olContacts Is Nothing Then
            ' 应用过滤器并统计数量
            Set filteredItems = olContacts.Items.Restrict(filterStr)
            totalOccurrences = totalOccurrences + filteredItems.Count
            Set olContacts = Nothing
        End If
    Next olAccount
    
    MsgBox "目标邮箱在所有账户联系人中出现次数：" & totalOccurrences, vbInformation
    Set olApp = Nothing
End Sub

注意事项 #

• 确保VBA编辑器已添加Outlook对象模型引用：工具 -> 引用 -> 勾选Microsoft Outlook xx.x Object Library
• 如果需要统计Exchange账户的共享联系人文件夹，需额外遍历olNs.Folders下的共享文件夹
• 若存在重复联系人条目，Restrict会全部统计，如需去重可添加条目ID去重逻辑

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