質問: Excel VBAで教えて下さい。 毎日日報を作成しExcelファイルをメールで上司に送っています。 メール作成と資料添付のVBAを作っているのですが、宛先、メール文面等はできましたが添付がうまくいきません。 作成したExcelファイル名は作成日の前日の「年月日.xlsx」というタイトルでデスクトップに保存しています。 どなたか詳しい方メールに資料を添付する方法を教えて下さい。
回答: デスクトップに保存されている「yyyymmdd.xlsx」をメールに添付する部分だけ書きます。 の所は作成済みのコードに合わせて下さい。 Dim WSC As Object Dim fpath As String Dim fname As String Set WSC = CreateObject("WScript.Shell") fpath = WSC.SpecialFolders("Desktop") & "\" fname = Format(Date - 1, "yyyymmdd") & ".xlsx" If Dir(fpath & fname) <> "" Then .Attachments.add fpath & fname End If Set WSC = Nothing