excel - 使用 CDO.sys dll 在 VBA 中发送消息会卡住 Excel

Question

我在使用 CDO.sys 从支持 VBA 的 Excel 应用程序发送电子邮件时遇到了一个奇怪的问题。
我使用了以下代码，位于 https://www.rondebruin.nl/win/s1/cdo.htm :

Sub SendMailCDO(FSubject As String, FBody As String, FFrom As String, FTo As String, FCc As String)

    Dim iMsg As Object
    Dim iConf As Object
    Dim Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "myServerIPAddress"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With

    With iMsg
        Set .Configuration = iConf
        .To = "mydestination"
        .CC = ""
        .BCC = ""
        .From = FFrom
        .Subject = FSubject
        .TextBody = ""
        .HTMLBody = FBody
        .Send
    End With
    MsgBox ("Email sent to " & FTo)
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
End Sub

现在，代码工作正常，电子邮件已发送。但是，在发送第一封电子邮件后，Excel 会立即对许多不同的命令无响应。例如，更改单元格中的字体尺寸或应用条件格式等正常操作不再处于事件状态。此外，Excel 似乎执行一切都很慢。
解决此问题的唯一解决方案是关闭 Excel 并再次打开它。
有什么建议可以解决这个问题吗？
提前致谢，
埃米利奥

Answer 1

绝对出乎意料，但删除 Msgbox 调用“Email sent to”解决了问题!