メールの添付ファイル

Question

私は、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 = "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"またはどこに保存していますか。