VBA发送邮件时第二个IF分支报错：运行时错误-2147221238(8004010a)

嘿，这个问题我之前帮不少人排查过，核心原因很明确：你在循环/条件触发发送邮件的时候，没有每次都重新创建新的邮件对象，导致第一封发送后，旧的邮件实例已经被Outlook标记为“已处理/已移动”，第二次赋值时找不到有效对象了。

错误原因拆解 #

错误代码-2147221238 (8004010a)对应的是MAPI_E_NOT_FOUND，翻译过来就是“你要操作的项目已经被移动或删除”。为什么第一封能发？因为第一次创建的邮件对象是有效的，但发送后，Outlook会把这封邮件转移到“已发送邮件”文件夹，原来的objEmail引用就失效了——你再用这个失效的对象去设置.To属性，自然会报错。

修正后的完整代码 #

结合你给出的代码片段，我帮你补全并修正关键问题，重点是把邮件对象的创建放到条件/循环内部：

Private Sub CommandButton1_Click()
    Dim objOutlook As Object
    Dim objEmail As Object
    Dim Row As Integer
    Dim Recipient As String
    Dim Requestor As String
    Dim CQID As String
    
    ' 只初始化一次Outlook应用对象，避免重复创建浪费资源
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' 假设你是从Excel表格循环读取数据（根据你的实际需求调整行范围）
    For Row = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        ' 替换成你的实际IF判断条件，比如某列值符合要求才发送
        If Cells(Row, 4).Value = "待提醒" Then
            Recipient = Cells(Row, 1).Value ' 示例：收件人在A列
            Requestor = Cells(Row, 2).Value ' 示例：申请人在B列
            CQID = Cells(Row, 3).Value ' 示例：CQID在C列
            
            ' 关键！每次满足条件时，都新建一个邮件实例
            Set objEmail = objOutlook.CreateItem(0) ' 0代表olMailItem（普通邮件）
            
            With objEmail
                .To = Recipient
                .Subject = "CQID处理提醒：" & CQID
                .Body = "您好，" & Requestor & vbCrLf & vbCrLf & _
                        "您的CQID【" & CQID & "】已到处理节点，请及时跟进。"
                .Send ' 测试阶段可以改成.Display，手动查看邮件内容再发送
            End With
            
            ' 释放当前邮件对象，避免内存泄漏和无效引用残留
            Set objEmail = Nothing
        End If
    Next Row
    
    ' 最后释放Outlook对象
    Set objOutlook = Nothing
    MsgBox "提醒邮件已批量发送完成！", vbInformation
End Sub

核心修正点 #

• 把邮件对象创建放到循环/条件内部：每次要发新邮件时，都用Set objEmail = objOutlook.CreateItem(0)生成新的实例，不要复用之前的对象。
• 及时释放对象：每次发送完邮件后，用Set objEmail = Nothing清空引用，避免残留无效的对象指针。
• Outlook对象只初始化一次：放在循环外面即可，重复创建Outlook实例会浪费资源，甚至引发其他异常。

额外调试建议 #

1. 测试时把.Send改成.Display，这样不会真的发送邮件，而是弹出邮件窗口，你可以检查每一封的收件人、内容是否正确。
2. 确保你的IF条件逻辑正确，没有出现“跳过创建邮件对象却直接赋值属性”的情况。
3. 可以加个收件人非空判断：If Recipient <> "" Then再执行发送逻辑，避免空收件人引发的异常。

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