发送.Send功能（CDO邮件）到后台进程

Question

工作簿挂起，直到.Send功能结束，然后程序运行完毕。

有一个程序包含下面的剪辑代码，用另一个代码调用。

下面的

.AddAttachment传递了大约5MB的文件。

当VBA代码运行时，它会阻塞主线程，因此冻结。

某些VBA功能（例如打印Word文档）可以选择将其发送到后台进程。 （.PrintOut Background:=True）

  

是否可以将.Send功能发送到后台，以便在CDO Mail附带附件的情况下继续播放宏？

代码片段是：

Dim iMsg As Object
Dim iConf As Object

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

With iMsg
    Set .Configuration = iConf
    .To = strTo
    .ReplyTo = "Email Address"
    .From = """Sender Name (Email Address)"" <EmailAddress>"
    .Subject = strSubject
    .TextBody = strBody
    .AddAttachment ThisWorkbook.Path & "\Temp\" & ThisWorkbook.Name
    .Send
End With