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解決此問題