关闭 Outlook 时在 VBA、Excel 中通过 MS-Outlook 发送带附件的电子邮件

Question

当我发送没有附件的邮件时，确实有效。

但是当我使用.Attachments.Add ActiveWorkbook.FullName 参数时，它不会发送并一直等待打开 Outlook。

我想在 Outlook 关闭时发送邮件。

我正在使用以下代码：

Sub SendMail()
    Dim OutlookApp As Outlook.Application
    Dim OutlookMail As Outlook.MailItem

    Set OutlookApp = New Outlook.Application
    Set OutlookMail = OutlookApp.CreateItem(olMailItem)

    With OutlookMail
        .To = "address@domain.com"
        .CC = ""
        .BCC = ""
        .Subject = "M"
        .BodyFormat = olFormatHTML
        .HTMLBody = "Hi, <p> I'm sending this message from Excel using VBA.</p>Please find <strong> M</strong> in life."
        .Attachments.Add ActiveWorkbook.FullName
        .DeferredDeliveryTime = DateAdd("n", 1, Now)
        .Importance = olImportanceHigh
        .ReadReceiptRequested = True
        .Send
    End With
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

关于.DeferredDeliveryTime = DateAdd("n", 1, Now)：我希望电子邮件在运行宏后 1 分钟发送。

问候。

这个问题独特的原因：

1. StackowerflowQuestion：我上面的代码解决了这个问题，剩下的问题是我在这里关注的发送附件。适当的答案是我强调的是 Outlook 已关闭。

更新

另一个症状是当我运行上面的代码时，try 系统中会显示一个临时图标，并弹出一条消息："another program is using outlook. to disconnect program and exit outlook..."。

如果重要，也请考虑这一点。

---

请注意问题在于发送附件。

通过以上代码，解决了关闭outlook时发送邮件的问题。 （在类似问题中提到）

所以在这种情况下，剩下的问题是发送附件（Outlook 已关闭）。

Answer 1

抱歉，我刚才误解了你的问题。参考here，需要添加如下代码。

Dim OutApp As Outlook.Application 
Dim OutMail As Outlook.MailItem

On Error Resume Next 
Set OutApp = GetObject(, "Outlook.Application") 
If OutApp Is Nothing Then 
    Set OutApp = CreateObject("Outlook.Application") 
End If 
On Error Goto 0 

Set OutMail = OutApp.CreateItem(olMailItem) 
With OutMail 
    .To = "address@domain.com" ' continue from here