こんにちは！日々のメール業務の自動化、本当にお疲れ様です。
マクロの記録から一歩踏み出し、「自分でコードを書く楽しさ」を知ったあなたなら、きっとこう思ったことがあるはずです。
「Excelのリストから、一気に100件のメールを下書き保存、あるいは送信したい！」
ループを回して `MailItem` をポンポンと作成していく……。初学者の頃は、これだけでも魔法のように感動しますよね。
しかし、業務で実際に数百件規模のメールを扱い始めると、必ずと言っていいほど「ある壁」にぶつかります。それが、今回解説する「送信レート制限（スパム判定・サーバー負荷エラー）」と「Outlookのフリーズ（応答なし）」です。
今回は、数千件規模のメール配信をも確実に、そして美しくさばくための「バッチ処理と待機時間の最適化」について、プロの現場で使われる極限の知見を優しく、しかし妥協なく伝授します。ここをクリアすれば、あなたのVBAスキルは間違いなく中級者から「上級者の領域」へと駆け上がりますよ！
—
なぜ、大量メール送信でOutlookは「フリーズ」し、サーバーは「怒る」のか？
まずは敵を知ることから始めましょう。
VBAでよくある、こんなコードを想像してください。
‘ 【やってはいけないアンチパターン】
For i = 1 To 1000
Set mail = Application.CreateItem(olMailItem)
mail.To = cells(i, 1).Value
mail.Subject = “ご案内”
mail.Body = “いつもありがとうございます。”
mail.Send ‘ または .Display
Next i
このコードを実行すると、何が起きるでしょうか？
運が良ければ終わりますが、大抵は途中でOutlookが真っ白になり、「応答なし」の悲しいダイアログが表示されるか、会社のメールサーバーから「短時間に大量の送信リクエストが検知されました」とスパム扱いされてブロックされます。
原因1：OutlookのUIスレッドのパンク
Outlookは裏でメールを送りながらも、画面を描画し、ユーザーの操作を受け付けるという「マルチタスク」を必死にこなしています。そこに1秒間に何十通もの命令を叩き込むと、Outlookの脳みそ（UIスレッド）が処理しきれなくなり、プッツンしてフリーズしてしまうのです。
原因2：Exchange Server / SMTPサーバーの「レートリミット」
企業で使われるExchange Serverや、Microsoft 365（Exchange Online）、外部のSMTPサーバーには、セキュリティとリソース保護のために「1分間あたりの送信数上限（レートリミット）」が厳格に定められています。これを超えると、エラーコードが返ってくるか、最悪の場合、アカウントが一時停止されます。
—
解決策：バッチ処理 ＋ 非同期的待機（DoEvents）の実装
この問題をスマートに解決するのが、「バッチ処理（小分け）」と「動的な待機時間（`DoEvents`の活用）」です。
- バッチ処理：一気に全件処理するのではなく、例えば「50件送ったら、数秒ブレイクする」という区切り（バッチ）を作ります。
- 非同期的待機（DoEvents）：待機している間（`Sleep`中など）、Outlookが固まらないようにOSへ制御を一時返却し、「フリーズさせない」状態を作ります。
それでは、実務でそのまま使える、極上のプロダクションコードをお見せしましょう。
—
【実践コード】安全かつ確実にメールをバッチ送信するVBA
Excelのシート（アクティブシート）の2行目以降に、`A列：宛先`, `B列：件名`, `C列：本文` が入っていると仮定したマクロです。
Option Explicit
‘ WindowsのAPI「Sleep」を宣言し、ミリ秒単位で処理を一時停止できるようにします
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
Sub SendBulkMailSafely()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
If lastRow < 2 Then MsgBox "送信対象データが見つかりません。", vbExclamation Exit Sub End If ' --- 設定パラメータ --- Dim batchSize As Long batchSize = 20 ' 【バッチサイズ】何件ごとに休憩を挟むか Dim pauseTimeSec As Long pauseTimeSec = 5 ' 【休憩時間】バッチごとのインターバル（秒） Dim sentCount As Long sentCount = 0 Dim i As Long Dim outlookApp As Object Dim mailItem As Object ' Outlookのインスタンスを事前に1つだけ生成（パフォーマンス向上） Set outlookApp = CreateObject("Outlook.Application") ' ユーザーへの確認 If MsgBox("合計 " & (lastRow - 1) & " 件のメール送信（または下書き作成）を開始します。" & vbCrLf & _ "サーバー負荷軽減のため、" & batchSize & "件ごとに " & pauseTimeSec & " 秒のインターバルを挟みます。", _ vbQuestion + vbOKCancel, "一括処理確認") = vbCancel Then Exit Sub ' メインのループ処理 For i = 2 To lastRow ' エラーハンドリングを内包 On Error GoTo ErrorHandler ' メールアイテムの作成 Set mailItem = outlookApp.CreateItem(0) ' 0 = olMailItem With mailItem .To = ws.Cells(i, 1).Value .Subject = ws.Cells(i, 2).Value .Body = ws.Cells(i, 3).Value ' すぐに送信する場合は .Send ' テスト段階や安全性を期す場合は .Display または .Save を推奨 .Send End With sentCount = sentCount + 1 ws.Cells(i, 4).Value = "送信完了: " & Format(Now, "yyyy/mm/dd hh:nn:ss") ' --- バッチ制御とフリーズ防止の肝 --- If sentCount Mod batchSize = 0 And i < lastRow Then ' ステータスバーに進捗を表示して優しくエスコート Application.StatusBar = sentCount & " 件送信完了。サーバー保護のため " & pauseTimeSec & " 秒待機中..." ' 指定秒数スリープするが、その間もOutlookやExcelがフリーズしないよう ' DoEventsを挟みつつ細かくスリープを刻むアプローチ Dim t As Single t = Timer Do While Timer < t + pauseTimeSec DoEvents ' ★これがOutlookをフリーズさせない魔法の呪文 Sleep 100 ' CPUを焼き尽くさないための細やかな配慮 Loop End If ' オブジェクトの解放（メモリリーク防止） Set mailItem = Nothing Next i Application.StatusBar = False MsgBox "すべての処理が正常に完了しました！", vbInformation, "完了" Exit Sub ErrorHandler: ' 万が一、特定のメールアドレス不正などでエラーが出ても全体を止めない設計 ws.Cells(i, 4).Value = "エラー: " & Err.Description Resume Next End Sub --- ジックにコードの裏側を解説します。ここが本記事の最も重要なエッセンスです。
1. `DoEvents` と `Sleep` の黄金律
`Sleep 5000`（5秒停止）とだけ書くと、確かに処理は止まりますが、その間ExcelやOutlookの画面は完全に固まり（無反応になり）、強制終了のリスクが高まります。
上記のコードでは、`Do` ループの中でこまめに `DoEvents` を呼び出すことで、OSやOutlookへ「私、まだ生きてますよ、描画や操作のイベントがあったら処理してね」とCPUの主導権を渡しています。これにより、大量処理中でもOutlookがサクサクと動き、ユーザーが「今どうなっているか」を確認できるようになります。
2. `sentCount Mod batchSize = 0` によるバッチ制御
`Mod`（モジュロ演算子：余りを求める）を使うことで、「20件」「40件」「60件」という節目を完璧に捉えることができます。サーバーが息をつく暇（インターバル）を意図的に作り出すことで、社内インフラのセキュリティアラートを華麗に回避します。
3. メモリリークの徹底排除 (`Set mailItem = Nothing`)
ループの中で毎回 `CreateItem` を行っていると、VBAの裏側で参照されたOutlookオブジェクトの残骸がメモリ上に蓄積し、終盤にメモリ不足（Out of Memory）エラーを引き起こします。ループの最後で明示的に `Set mailItem = Nothing` とし、さらに処理の最初でOutlookのセッションを1つだけ使い回すことで、極限までメモリ効率を高めています。
—
現場で役立つアドバイス：最初は必ず「テストモード」で！
いきなり本番環境の `.Send` で動かすのは、熟練エンジニアでも少し冷や汗をかきます。
最初はコード内の `.Send` を `.Display`（画面に表示する）または `.Save`（下書きに保存する）に書き換え、正しくバッチごとにウェイトが入るか、意図した宛先にデータがセットされているかを必ず自分の目で確かめてから本番稼働させてください。
ここをクリアできれば、あなたのVBAエンジニアとしての引き出しは一段と深くなり、どんな大量データの波が来ても涼しい顔で自動化をやり遂げられるはずです。
それでは、快適なOutlook自動化ライフを！
