outlookで個別添付ファイル付きメール一括送信

質問

お世話になります。

Windows10でMicrosoft 365のOutlookやExcelを使用しています。

50人くらいに、メール本文中には宛先の社名と氏名を記入し、それぞれに別々の添付ファイルを付けたメールを送る必要があります。

Excelシートに メールアドレス、社名、氏名、添付ファイル名 のリストを作っておいて、差込印刷のように一括送信する（できることなら、いきなり送信されるのではなく、下書きフォルダに保存されると尚良い）ことができるソフト(？)など、ご存じの方がいらっしゃいましたら、ぜひ教えてください。

マクロを自分で書くスキルはありません。
宜しくお願いいたします。

回答No.1

kkkkkm · ベストアンサー

以下のサイトを参考にしてやってみてください。

Excelのメールアドレス データを使用し、Outlookのメールを自動送信する
https://www.helpforest.com/excel/emv_sample/ex100009.htm

添付ファイルですが元がB4とB5限定なので、それを変更してG8(差し込み2の右のセル)から下に送信先ごとに対応するファイル名を記載してコードを以下に変更してください。

　　　　'添付
　　　　If Tenp1 <> "" Then
　　　　　　MI.Attachments.Add Tenp1
　　　　End If
　　　　If Tenp2 <> "" Then
　　　　　　MI.Attachments.Add Tenp2
　　　　End If

を削除して代わりに

If Cells(R_Start, "G") <> "" Then
MI.Attachments.Add Cells(R_Start, "G").Value
End If

あと

ExcelからOutlookでメールを作成・送信する基本のVBA
https://www.helpforest.com/excel/emv_sample/ex100008.htm

こちらで
＜エラー＞
の下にある
［ツール］メニュー－［参照設定］を設定してください。

お礼

ご回答ありがとうございました。
お陰様で目的を達することができました！