VBA运行时错误：为什么在使用mailenvelope通过Outlook发送邮件时出现错误

Question

我有一个代码，可以一键发送多个电子邮件到多个电子邮件ID。 如果数据有限，代码可以正常工作，但是如果我的数据表中包含大量数据，则会引发运行时错误，如下所示：

“运行时错误'-2147417856（80010100）”：

由于网络或其他通信问题，操作失败。 验证您的连接，然后重试。”

不知道为什么会这样。 然后，我必须删除已经发送的电子邮件的数据，然后再次启动宏，并再次引发错误。

有人可以帮忙解决这个错误

With ActiveSheet.MailEnvelope
    .Introduction = Sheet3.Range("D2").Value

    With .Item
        .To = R
        .CC = S
        .BCC = T
        .Subject = Sheet3.Range("D1") & " - " & company_name
        .Send
    End With
End With

我希望代码无论输入的数据如何都能正常运行，因为我没有在编码中指定任何特定范围

Answer 1

通过在.send行之后添加DoEvents解决此问题