邮件附件

Question

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

我知道该文件已创建（如果我放置断点或删除Kill fname文件已创建好。

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

如果有人知道解决方案，请帮助我！谢谢。克莱门特。

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

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

Answer 1

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

"C:\TEMP\testFile.pdf"或保存它的任何地方。