Vba 邮寄附件

我正试图将一张纸作为pdf文件附在邮件上。但它显然不起作用（事实上，我在那里）

我知道已经创建了文件（如果我设置了断点或删除了

Kill fname

，那么文件创建得很好

邮件被发送了，有正文，有主题，从一个好的电子邮件地址发送到另一个好的电子邮件地址，但是文件没有附上。我不知道为什么，这让我发疯了

如果有人知道答案，请帮帮我！谢谢。谢谢

这是宏。创建.pdf文件，然后创建电子邮件

---

您需要指定PDF文件的位置，而不仅仅是名称

---

“C:\TEMP\testFile.pdf”

或您正在保存它的任何地方。

好的。它正在工作。我的错。我不知道为什么，但之前，像一个月前一样，它正在工作，即使没有指定文件的压缩路径。但是今天，不。对我来说，这是一个很大的优势，因为路径取决于您所在的计算机。无论如何，谢谢@jcarroll

fname = "testFile.pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fname, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

Dim OutApp As Object
Dim OutMail As Object
Call Open_Outlook

On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .To = "myMail@my.me"
    .Body = "Body"
    .SendUsingAccount = OutApp.Session.Accounts.Item(1)
    .CC = ""
    .BCC = ""
    .Subject = "Subject"
    .Attachments.Add fname
    .Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
On Error GoTo 0
Kill fname