Excel 电子邮件挂起 Outlook 直到发送 - 错误处理？

Question

我正在使用如下宏发送 Excel 工作簿。我使用空白电子邮件地址，以便在 Outlook 中显示电子邮件并允许用户输入电子邮件地址。但是，除非电子邮件在没有发送的情况下发送或关闭，否则 Excel 不会让用户在 Outlook 中执行任何其他操作，甚至打开附件进行检查。在处理完电子邮件之前，它也不会关闭文件，因此它陷入了这个循环。我怎样才能解决这个问题？

TempFilePath = Environ$("temp") & "\"
TempFileName = "The File Name"
FileExtStr = ".xlsx"

With TheWorkbook
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
For I = 1 To 3
 .SendMail "", _
    "This is the Subject line"
    If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
.Close SaveChanges:=False
End With

Answer 1

而不是 .SendMail为什么不使用 Outlook 后期绑定(bind)？这样，Excel就不用等待 Action 完成了吗？

看这个例子

Option Explicit

Sub Sample()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim i As Long

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With ThisWorkbook
        '
        '~~> Do Something
        '

        For i = 1 To 3
            Set OutMail = OutApp.CreateItem(0)

            With OutMail
                .Subject = "This is the Subject line"
                .Body = "Hello World"
                .Attachments.Add TempFilePath & TempFileName & FileExtStr

                '~~> Show the email
                .Display
            End With
        Next i
    End With
End Sub