Outlook VBA如何基于部分信息模糊搜索联系人获取邮箱地址

原有代码失效核心原因 #

• 文本类型筛选值未按Jet查询语法要求用单引号包裹，条件解析直接出错
• 模糊匹配时误用VBA原生通配符*，Outlook Items.Restrict 方法使用的Jet查询语法中，模糊匹配通配符固定为%，需搭配Like运算符使用
• 未做特殊字符转义，当检索关键词包含单引号时会直接抛出查询语法错误

可直接运行的修正代码 #

Public Sub ShowContactEmail()
    Dim myContacts As Folder
    Dim myfilter As String
    Dim filteredItems As Outlook.Items
    Dim myItem As Object
    Dim myName As String
    ' 替换为需要检索的姓名片段，支持部分匹配
    myName = "Doe"
    
    ' 转义关键词中的单引号，避免查询语法报错
    myName = Replace(myName, "'", "''")
    
    ' 读取默认本地联系人文件夹（即“人员(People)”文件夹）
    Set myContacts = Application.Session.GetDefaultFolder(olFolderContacts)
    Set filteredItems = myContacts.Items
    
    ' 构建多字段模糊匹配规则：姓、名、全名字段任意一个包含检索关键词即命中
    myfilter = "[FirstName] Like '%" & myName & "%' " & _
               "Or [LastName] Like '%" & myName & "%' " & _
               "Or [FullName] Like '%" & myName & "%'"
    
    ' 遍历筛选结果
    For Each myItem In filteredItems.Restrict(myfilter)
        ' 仅处理标准联系人条目，跳过分发组、日程条目等其他类型内容
        If myItem.Class = olContact Then
            Debug.Print "姓名：" & myItem.FullName, "邮箱：" & myItem.Email1Address
        End If
    Next
End Sub

场景适配说明 #

• 该方案不依赖联系人字段录入规范，不管新建联系人时把全名填在FirstName栏、仅填写LastName栏，还是规范填写了全名字段，只要对应字段包含检索关键词就会被匹配到
• 如果需要支持邮箱片段检索，直接在筛选条件中追加Or [Email1Address] Like '%" & myName & "%'即可
• 若本地联系人条目超过1万条，可在执行Restrict前加一行filteredItems.Sort "[FullName]", olAscending提升检索效率

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