Excel VBAでOutlookを操作して、添付ファイル付きのメールの下書きを作成し、保存するコードを書きました。
Excel VBAでOutlookを操作して、添付ファイル付きのメールの下書きを作成し、保存するコードを書きました。
Outlookで複数アカウントを使用している場合、アカウントを選択できます。
保有しているアカウントでも、Outlookに追加しておかないと、正常に動作しません。
エラー表示すらでないので、注意してください。
それでは、下にコードを書きます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Dim objOutlook As Object Dim objMail As Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) With objMail .SendUsingAccount = objOutlook.Session.Accounts.Item("[送信元メールアドレス]") .Subject = "[件名]" .Body = "[本文]" .To = "[送信先メールアドレス]" .Attachments.Add ("[添付ファイルのパス]") .Display '下書作成 .Close (0) '保存して閉じる End With |