Question

我整个上午都在尝试使用此VBA脚本将我的活动Excel文档附加到自动生成的Outlook消息中。如果我将文件路径声明为字符串并附加它，一切正常。除了我想附加当前excel文档的完整文件路径而不是使用静态字符串值。

这是我的代码：

Private Sub CommandButton1_Click()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim sAttach As String
    Dim sTo As String
    Dim sCC As String



    'For To field
    Set emailRng = Worksheets("Pre-Clearance Email").Range("E11:J14")

    For Each cl In emailRng
        sTo = sTo & ";" & cl.Value
    Next

    sTo = Mid(sTo, 2)

    'For CC field
    Set emailRngCC = Worksheets("Pre-Clearance Email").Range("E16:J19")

    For Each cl In emailRngCC
        sCC = sCC & ";" & cl.Value
    Next

    sCC = Mid(sCC, 2)



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

    'variable declarations for email body and attachment
    strbody = "<BODY style=font-size:11pt;font-family:Calibri>Good Morning;<p>Please see the attached aliases for validation. Please let me know if you have any questions.<p>Thank you.</BODY>"
    sAttach = "K:\CRM Support\Data\Systematic Trade Recon (1).xlsm"

    'the below code adds a users default signature to the email
    With OutMail
        .Display
    End With
        signature = OutMail.HTMLBody

    With OutMail
        .to = sTo
        .CC = sCC
        .Subject = "STR Pre-Clearance"
        .HTMLBody = strbody & signature
        .Attachments.Add (ActiveDocument.FullName)

        '.Attachments.Add sAttach
        .Display 'Instead of .Display, you can use .Send to send the email _
                    or .Save to save a copy in the drafts folder
    End With

编译器在这一行给出了一个错误：

.Attachments.Add (ActiveDocument.FullName)

我做了一些研究，并尝试自己解决问题，但我无法弄清楚如何使这个脚本将活动文件附加到此Outlook消息。正如您在我的代码中看到的，我的备份选项是使用字符串变量和静态地址来附加文件，但我宁愿使这个脚本比这更通用。

以下是我发现的其中一个网站，它给了我这个想法：Here

Answer 1

好吧，经过一些努力，我能够让工作簿完美地附加。以下是我在我的原始代码中对OutMail对象所做的修订：

With OutMail
        .to = sTo
        .CC = sCC
        .Subject = "STR Pre-Clearance"
        .HTMLBody = strbody & signature
        .Attachments.Add (ActiveDocument.FullName) 'this is the correction I made
        .Display

我想我会回答我自己的问题，所以如果没有技术答案，它就不会徘徊。也许它会在将来帮助某人。

Answer 2

修复实际应该是：

With OutMail
    .To = sTo
    .CC = CC
    .Subject = "STR Pre-Clearance"
    .HTMLBody = strbody & signature
    .Attachments.Add (ActiveWorkbook.FullName) 'should be workbook not document
    .Display 'or .Send

如何将活动的Excel工作簿附加到电子邮件

2 个答案: