附件上的郵件

我想附上一張郵件，作爲一個PDF文件。但它顯然不工作（的確，我在那裏）。附件上的郵件

我知道該文件被創建（如果我把一個斷點或刪除了Kill fname文件很好創建。

郵件發送，用身體，主體，從和好的電子郵件地址，但該文件未附後。我不知道爲什麼，它使我瘋了。

如果有人知道的soluce，請幫幫我！謝謝你。克萊門特。

這裏的宏。創建.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 = "[email protected]" 
    .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

來源

2017-07-20 Clement B

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

"C:\TEMP\testFile.pdf"或無論您保存在哪裏。

來源

2017-07-20 12:45:33 jcarroll

好的。它正在工作。我的錯。我不知道爲什麼，但之前像一個月前那樣工作，即使沒有指定文件的強制路徑。但今天，沒有。對我而言，這是一個很大的優勢，因爲路徑取決於您的計算機。無論如何，謝謝@jcarroll –

附件上的郵件

回答

相關問題