vba - 努力使用 Excel VBA 将文件附加到 Outlook 电子邮件

Question

我正在尝试一些相当简单的事情，但我不知道我在做什么与其他编写的代码在做什么有什么不同。

我有一个非常简单的使用 Outlook 从 Excel 发送电子邮件:

Sub SendEmail()

    Dim OutApp As Object
    Dim OutMail As Object


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

With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    With OutMail
        .To = Range("ETF_CAB_Recon_Initial_Email_To")
        .CC = Range("ETF_CAB_Recon_Initial_Email_CC")
        .BCC = ""
        .Subject = Range("ETF_CAB_Recon_Initial_Email_Subject")
        .HTMLBody = Range("ETF_CAB_Recon_Initial_Email_Body")
        .Attachments.Add Range("ETF_CAB_Recon_Initial_Email_Attachment")
        .Display  
    End With


    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

但是，它在我的文件附件中变得脾气暴躁。

错误消息: "Object doesn't support this property or method"做一些研究，这显然是因为 .add 不是附件的一部分？但是，为什么这么多示例都使用 Attachments.Add 作为将文件附加到 Outlook 电子邮件的代码？

我已确保 Outlook 对象库已打开，并且电子邮件的其余部分可以很好地填写 - 只是附件没有。调试也将附件显示为问题。

我尝试了几种不同的方法来定义位置。

任何有关解决方案的指导将不胜感激。

Answer 1

Attachments.Add 只接受字符串(文件名)或 Outlook 项目之一的实例(例如 MailItem)。您正在传递一个 Range 对象。