2019-07-12ねぇもりさん、同じ宛先にメールを大量送信する方法ないかなぁ?もりええぇぇ?!何に使うの?メールサーバの負荷テストをしたいんだ。手動で1件ずつ送信しても、大した負荷にならないんだよ。自動でバババッって送れないかなぁ?もりなるほどね!それならVBAでOutlookを操作すれば実現できるよ!Outlookから、指定の宛先にメールを連続送信するマクロを紹介します。ファイルの添付も可能なので、容量の大きいメールを送るテストにも使用できます。(例)3秒間隔で連続10回メールを送信スポンサーリンクContents【事前準備】Excelシートにデータを入力する指定の宛先に連続メール送信するマクロポイント:Sleep関数で処理を一時停止する※くれぐれも注意してお使いください【事前準備】Excelシートにデータを入力するExcelシートに入力したデータを利用してメールアイテムを作成します。下記のセル番地どおりに枠を用意しましょう。「添付ファイルパス」「添付ファイル名」は任意入力です。添付ファイルが不要な場合、セルへの入力は不要です。添付できるファイルは1つのみです。複数ファイルを添付したい場合、zipファイルにして、B6セルにzipファイル名を設定すればOKです。指定の宛先に連続メール送信するマクロ以下のコードを標準モジュールに貼り付けてmainプロシージャを実行してください。送信済メールは、Outlookの「送信済みアイテム」に入ります。※マクロを実行する前にOutlookを起動しておきましょう。("連続送信を開始します。"メール送信が終了しました。_("連続送信を開始します。"メール送信が終了しました。Subポイント:Sleep関数で処理を一時停止するVBAの処理は非常に高速です。一時停止の処理を挟まないと、Outlookのメール作成&送信処理が追いつかず、Outlookがフリーズしてしまいます。そのため、For~Nextステートメント内で、メール1件ごとに処理を一時停止しています。この記事では、3秒間隔に設定しています。お好みで秒数を設定してみてください。Sleep関数とは指定の時間、マクロ処理を停止する関数です。停止する時間をミリ秒単位で指定します。