Excel电子邮件挂起Outlook直到发送 - 错误处理？-Java 学习之路

我正在使用宏发送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

1 回答

而不是 .SendMail 为什么不跟Outlook绑定？这样，Excel就不必等待动作完成了吗？

看这个例子

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

回复于 2024-05-05T22:08:29+08:00

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

1 回答

相关问题