时间戳

首页 > 解决方案 > VBA 运行时错误：为什么我在使用 mailenvelope 通过 Outlook 发送邮件时出现错误

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

问题描述

我有一个代码，可以一键向多个电子邮件 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

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

标签： excelvba

解决方案

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

推荐阅读