VBA/メールを一括送信(一つ添付)

参照:http://serialty.blog117.fc2.com/blog-entry-10.html
参照:https://excel-ubara.com/excelvba4/EXCEL233.html
実験対象バージョン:Excel2010

サンプル

サンプル一式は、 こちらからダウンロードできます。
リスト一覧に送信したい相手のメアドと名前を記載します。
送信部画面で、送信する側の設定とタイトルと本文を設定して送信します。
【リスト一覧画面】
リスト一覧画面のサンプル
【送信部画面】 送信部画面のサンプル

事前設定

※メニューバーの[ツール(T)]→[参照設定(R)...]→「Microsoft CDO for Windows 2000 Library」にチェックを入れて[OK]が必要です。
参照設定
参照設定

使い方

送信者一覧

【リスト一覧画面】 リスト一覧画面のサンプル
A列はあくまで数を表示しているだけです。
B列(名前)は、この名前を取得して、「○○様」表記になります。
C列(メールアドレス)に送信します。
※送信アドレスチェックは行っていない為間違っていた場合は落ちます。

送信

【送信部画面】 送信部画面のサンプル
送信者メールアドレス
送信するアドレスを設定して下さい。
送信者名
送信者として表示する名前を設定して下さい。
SMTPサーバー名
送信するアドレスのSMTPを設定して下さい。
SMTPサーバーポート番号
送信するアドレスのSMTPのポート番号を設定して下さい。
SSL通信
チェックでオンになります。
SMTP認証
認証方法を設定して下さい。
ユーザー名
送信するアドレスのユーザー名
パスワード
送信するアドレスのパスワード(セキュリティ的なことは一切考えていません)
送信タイトル
タイトル名を設定して下さい。
送信本文
本文に名前が挿入されるので考慮した本文を入力してください。
○○様
あ い う
添付
添付ファイルを1つ選べます。 添付した感じがしないので、注意が必要です。
送信
メールを送信します。