使用VBA通过Email ID或扩展属性查找Outlook邮件

一、通过自定义单值扩展属性查找 #

你遇到的Restrict()失效问题，大概率是因为没有用DASL（DAV搜索和定位）查询字符串正确构造筛选条件。自定义MAPI扩展属性需要用对应的DASL路径来构建查询，而非普通属性名。

核心步骤 #

1. 确定自定义属性的DASL路径：即你用PropertyAccessor.GetProperty()时的路径，格式为http://schemas.microsoft.com/mapi/string/{GUID}/属性名
2. 构造符合Outlook要求的SQL风格筛选字符串，前缀必须是@SQL=，属性路径用双引号包裹，属性值用单引号包裹（若值含单引号，需替换为两个单引号）
3. 使用Items.Restrict()或Items.Find()执行查询

完整代码示例 #

Sub FindEmailByCustomProp()
    Dim outlookApp As Outlook.Application
    Dim targetFolder As Outlook.Folder
    Dim filteredItems As Outlook.Items
    Dim foundMail As Outlook.MailItem
    Dim filterStr As String
    Dim customPropDASL As String
    Dim targetValue As String
    
    ' 初始化Outlook对象和目标文件夹（这里用收件箱，可替换为其他文件夹）
    Set outlookApp = Outlook.Application
    Set targetFolder = outlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    
    ' 替换为你的自定义属性DASL路径和要查找的值
    customPropDASL = "http://schemas.microsoft.com/mapi/string/{10101010-1010-1010-C101-101010101010}/myCustomProp"
    targetValue = "目标属性值" ' 比如你通过Graph设置的标记值
    
    ' 构造筛选字符串：处理单引号转义
    filterStr = "@SQL=""" & customPropDASL & """ = '" & Replace(targetValue, "'", "''") & "'"
    
    ' 执行筛选
    Set filteredItems = targetFolder.Items.Restrict(filterStr)
    filteredItems.Sort "[ReceivedTime]", olDescending ' 可选：按接收时间倒序
    
    ' 遍历结果
    If filteredItems.Count > 0 Then
        For Each foundMail In filteredItems
            Debug.Print "找到邮件：" & foundMail.Subject & _
                        " | 属性值：" & foundMail.PropertyAccessor.GetProperty(customPropDASL)
        Next foundMail
    Else
        Debug.Print "未找到匹配的邮件"
    End If
    
    ' 释放对象
    Set foundMail = Nothing
    Set filteredItems = Nothing
    Set targetFolder = Nothing
    Set outlookApp = Nothing
End Sub

二、通过Graph邮件ID查找 #

Graph返回的邮件ID（REST接口的id字段）并非Outlook对象模型的内置属性，无法直接查询。解决方式有两种：

1. 间接查询：通过Graph将该ID存入自定义扩展属性，再用上面的自定义属性查询方法查找
2. 互联网消息ID匹配：如果指的是邮件的internetMessageId（即邮件头中的Message-ID），可通过对应的MAPI属性查询，对应的DASL路径为http://schemas.microsoft.com/mapi/proptag/0x007D001F，示例筛选字符串：

   filterStr = "@SQL=""http://schemas.microsoft.com/mapi/proptag/0x007D001F"" = '<abc123@yourdomain.com>'"
   

注意事项 #

• 自定义属性的GUID和名称区分大小写，必须和Graph设置的完全一致
• 若自定义属性未被Outlook索引，Restrict()会自动遍历所有项目，但仍比手动逐个遍历高效
• 若需要查找子文件夹，需添加递归遍历逻辑，逐个处理每个子文件夹的Items集合

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