在MS Outlook VBA中如何搜索MailItem属性中的指定字符串？

完全可以实现批量搜索邮件的所有属性值，不用手动逐个查看。下面是直接可用的VBA代码，能遍历指定邮件的内置属性和自定义MAPI属性，并筛选出包含目标字符串的属性：

Sub SearchMailProperties(ByVal targetMail As MailItem, ByVal searchStr As String)
    Dim propAccessor As PropertyAccessor
    Dim allProps As Variant
    Dim i As Integer
    Dim propName As String
    Dim propValue As Variant
    
    Set propAccessor = targetMail.PropertyAccessor
    
    ' 获取所有可访问的属性名称集合
    allProps = propAccessor.GetProperties(propAccessor.GetPropertyList)
    
    Debug.Print "=== 包含字符串 [" & searchStr & "] 的属性 ==="
    
    For i = LBound(allProps) To UBound(allProps)
        On Error Resume Next ' 跳过无法读取的属性
        propName = allProps(i)
        propValue = propAccessor.GetProperty(propName)
        
        ' 检查属性值是否为字符串类型，且包含目标字符串
        If TypeName(propValue) = "String" Then
            If InStr(1, propValue, searchStr, vbTextCompare) > 0 Then
                Debug.Print "属性名: " & propName & " | 属性值: " & propValue
            End If
        End If
        On Error GoTo 0
    Next i
    
    Set propAccessor = Nothing
End Sub

' 调用示例：通过EntryID加载邮件后执行搜索
Sub TestSearch()
    Dim objNS As NameSpace
    Dim targetMail As MailItem
    Dim entryID As String
    Dim storeID As String
    
    ' 替换为你的邮件EntryID和StoreID
    entryID = "你的邮件EntryID"
    storeID = "你的邮件StoreID"
    
    Set objNS = Application.GetNamespace("MAPI")
    Set targetMail = objNS.GetItemFromID(entryID, storeID)
    
    ' 搜索包含目标字符串的属性（不区分大小写）
    SearchMailProperties targetMail, "目标搜索字符串"
    
    Set targetMail = Nothing
    Set objNS = Nothing
End Sub

代码说明： #

• 用PropertyAccessor.GetPropertyList获取邮件全量属性名称，覆盖内置属性（如Subject、Body）和自定义MAPI属性
• 遍历过程中跳过无法读取的系统保护属性，避免报错中断
• 仅针对字符串类型属性做匹配，通过InStr实现不区分大小写的模糊搜索
• 匹配结果直接输出到VBA编辑器的立即窗口（按Ctrl+G可打开查看）

扩展提示： #

如果需要搜索数字、日期等非字符串类型属性，可在代码中扩展类型判断逻辑，比如增加对Date、Long等类型的检查和匹配规则。

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