邮件附件

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" 或您保存的任何位置。