如何在Excel VBA脚本中高亮标记Outlook邮件发送失败的行？

当然可以！这事儿好办，直接在你现有的VBA脚本里加几行代码就能搞定，自动把那些匹配失败的行高亮标出来，再也不用手动翻几百行表格了。

核心思路是：在遍历每行尝试匹配Outlook联系人时，一旦发现匹配失败，就给对应Excel行设置背景色。下面是完整的示例代码，你可以直接嵌入到你的现有逻辑中：

Sub SendEmailsAndMarkUnmatchedRows()
    Dim olApp As Object
    Dim olMail As Object
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim contactName As String
    Dim olRecipient As Object
    
    ' 初始化Outlook应用对象
    Set olApp = CreateObject("Outlook.Application")
    ' 指定要操作的工作表（替换成你的表名，比如"客户列表"）
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 获取数据最后一行（假设姓名在A列，根据实际列调整）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始遍历（第1行是表头的话）
    For i = 2 To lastRow
        contactName = Trim(ws.Cells(i, "A").Value)
        
        If contactName <> "" Then
            ' 创建Outlook收件人对象并尝试解析联系人
            Set olRecipient = olApp.Session.CreateRecipient(contactName)
            olRecipient.Resolve
            
            If olRecipient.Resolved Then
                ' 联系人匹配成功，执行你的邮件发送逻辑
                Set olMail = olApp.CreateItem(0)
                With olMail
                    .To = olRecipient.Address
                    .Subject = "你的邮件主题"
                    .Body = "这里是邮件内容"
                    ' .Send ' 正式发送时取消注释，测试用.Display预览
                    .Display
                End With
                Set olMail = Nothing
            Else
                ' 匹配失败，高亮整行（黄色背景，ColorIndex可自定义）
                ws.Rows(i).Interior.ColorIndex = 6
                ' 如果你只想高亮姓名单元格，改成：ws.Cells(i, "A").Interior.ColorIndex = 6
            End If
            Set olRecipient = Nothing
        Else
            ' 姓名为空的行也可以标记（比如红色）
            ws.Rows(i).Interior.ColorIndex = 3
        End If
    Next i
    
    ' 释放对象
    Set olApp = Nothing
    Set ws = Nothing
    
    MsgBox "邮件处理完成！未匹配的联系人已高亮标记。", vbInformation
End Sub

关键代码解释 #

• olRecipient.Resolve：这是核心方法，会自动在Outlook的所有通讯录（包括全局地址簿和个人通讯录）中查找匹配的联系人，成功返回True，失败返回False。
• ws.Rows(i).Interior.ColorIndex = 6：当匹配失败时，给整行设置黄色背景。你可以修改ColorIndex的值来换颜色：比如3是红色，4是绿色，22是浅蓝色，15是浅灰色等。
• 如果不需要高亮整行，只想标记姓名所在的单元格，把ws.Rows(i)替换成ws.Cells(i, "A")即可（A是姓名所在列，根据你的表格调整）。

注意事项 #

1. 运行脚本前确保Outlook已打开，否则可能触发安全提示，需要允许程序访问Outlook。
2. 测试阶段建议把.Send注释掉，用.Display预览邮件，避免误发。
3. 如果你的通讯录有特殊配置，比如需要指定特定地址簿查找，可以额外添加olRecipient.AddressList的筛选逻辑（一般默认全局+个人通讯录足够用）。

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