Excelでデータ添付されたメールを複数に個別で一括送信したいです。

Excelでデータ添付されたメールを複数に個別で一括送信したいです。
毎月いくつかの部署に定型文を用いてデータ添付されたメールを個別で送ってるのですが(Outlook)、定型文挿入を使ってもやっぱり手間ですので表題のような処理が出来るマクロが組めたらと思ってます。

添付写真のリストデータを作り、更に添付したいそれぞれのデータが保存されたフォルダ予め用意されてます。
マクロを実行したら、各アドレスへD列のキーワードに該当するフォルダ内のデータを添付して一括に送られるのが理想です。

マクロについてまだまだ未熟でして
どうかご教授いただけないでしょうか？

因みに今回の場合ですと、VBAより「ツール」→「参照設定」で「Microsoft Outlook XX.0 Object Library」にチェック入れるまでは把握してます。

何卒よろしくお願いします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2021/02/23 22:02

こんばんは、

一度にコードを書いたとしても分かり難くなると思いますので、
先ずOutlookで1通のメールをExcelから作ってみましょう。
（コンパイルエラーが出ると見たので）
＞因みに今回の場合ですと、VBAより「ツール」→「参照設定」で「Microsoft Outlook XX.0 Object Library」
との事なので、事前に参照設定をしてください。

下記を標準モジュールにコピペ、実行すると送信前のメールが出来ると思いますが、いかがでしょう。（出来た下書きメールは保存せずに削除してください）

Sub Test()
'Outlookオブジェクトの作成
Dim OutlookObj As Outlook.Application
Set OutlookObj = New Outlook.Application
'メールアイテムオブジェクト作成
Dim mailItemObj As Outlook.MailItem
Set mailItemObj = OutlookObj.CreateItem(olMailItem)
'メール本文の文字列
Dim mailBody As String
mailBody = "これは、デモです。本文テストです"
'メールを作成
With mailItemObj
.To = "[e-mail]"
.CC = "[e-mail]"
.Subject = "件名　デモ　" '件名
.body = mailBody '本文
End With
'メールアイテムを表示
mailItemObj.Display
Set mailItemObj = Nothing
End Sub

これが実行できないのなら、先に進む事が出来ません。
もし、コンパイルエラー、実行時エラーなどが出た場合は、
エラー詳細とお使いのOS,Excelバージョンをお知らせください。

参考にされたサイト、、どこだったか、そのコードを環境に合わせて手を加えるのが最も簡単だと思います。

この回答へのお礼

この度はありがとうございました！
無事解決出来ました！
他の場所でもコメントありがとうございます！

お礼日時：2021/02/25 16:55

No.2 回答者： yucco_chan 回答日時： 2021/02/23 22:40

すでに回答がありますので、参考までに。

過去に同じ目的でマクロを作ったのですが、
セキュリティーソフトが、ウィルスと誤認して
マクロが削除されてしまいました。

即ち、複数アドレスに一括送信するのは、
迷惑メールを送りつけるウィルスだと
判断されました。

セキュリティーソフトによって判断が異なるかもしてませんが、
マクロの実行前にバックアップを取っておくことをお勧めします。

No.3 回答者： 宇宙少年ソラン 回答日時： 2021/02/23 23:29

マクロは無理。

悪意があればなんでもできるからね。