こんにちは！普段、VBAを使って日々の業務をバリバリ効率化しているあなたなら、一度は「大量のメールを一斉送信したい！」というシチュエーションに出会ったことがあるはずです。
「よし、ループ処理で1000件のメールを下書き保存（または送信）するぞ！」と意気込んでマクロを実行した瞬間……。
画面が真っ白になり、Outlookが「応答なし」のフリーズ状態へ突入。最悪の場合、Outlookごと強制終了して、どこまで送信できたか分からない地獄絵図へ――。
これ、現場のエンジニアなら誰もが一度は通る「お祈りプログラミング（無事に終わってくれと祈るしかない状態）」の典型例です。
今回は、なぜOutlookがフリーズするのかという裏側の仕組みを解き明かしながら、大量送信を完全にコントロールする「待機処理」と「プロセス管理」の極意を、優しく、そして徹底的に伝授します。
ここをクリアすれば、あなたのOutlook VBAスキルは間違いなく一段上のステージに到達しますよ！
—
なぜ、大量メール送信でOutlookはフリーズするのか？
まず、敵（Outlookの仕様）を知ることから始めましょう。
VBAで `For` ループを回し、猛烈なスピードで `MailItem` オブジェクトを生成・操作すると何が起きるでしょうか？
実は、Outlook（および背後で動くMAPIプロトコル、Wordエディタ）は、あなたが想像しているよりもはるかに「おっとりしたお姫様」です。
1. 描画と処理のキャパオーバー
VBAが数ミリ秒単位でメールアイテムを作り続けると、Outlookの内部キュー（作業待ちの列）がパンクします。人間で言えば、わんこそばを1秒に10杯のペースで無限に食わされているような状態です。
2. OSとの対話の欠如
VBAが全速力でループしている間、OutlookはWindowsに対して「私は今、正常に動いていますよ」という合図（メッセージの処理）を送る余裕すらなくなります。これが、Windowsから見て「お、こいつフリーズしたな」と判定される瞬間です。
この悲劇を防ぐためのキーワードが、「DoEvents（ドゥ・イベント）」と「バッチ処理（一定数ごとの休憩）」です。
—
解決の武器①：`DoEvents` でOutlookに「深呼吸」をさせる
まずは、初学者から中級者へステップアップするための必須魔法 `DoEvents` について知恵をつけましょう。
`DoEvents` とは、VBAにこう命令するコードです。
> 「おい、ちょっとループの手を止めて、Windowsにたまったイベント（画面の描き直しや、ユーザーのクリック操作など）を処理してきなさい」
これをループの中に1行挟むだけで、Outlookは「あ、生き返った！」とばかりに息を吹き返し、フリーズを防ぐことができます。
基本的な使い方のイメージ
Dim i As Long
For i = 1 to 1000
‘ — ここにメール作成・送信の処理が入る —
‘ 1件処理するごとに、OSに息継ぎをさせる
DoEvents
Next i
「おっ、じゃあこれだけで完璧じゃん！」と思いますよね？
実は、これだけではまだ甘いのです。1000件、2000件という本当の「大量データ」を相手にする場合、毎回 `DoEvents` を挟んでも、Outlook側のバックグラウンド処理が追いつかずに息切れを起こします。
そこで登場するのが、真のプロが使う「一定数ごとの強制インターバル（バッチ制御）」です。
—
現場で使える！極限安定の「バッチ送信」マクロ実装例
お待たせしました。ここからが本題です。
一定数（今回は「50件」とします）送信するごとに、1秒間の「強制休憩（Sleep）」を挟み、さらに `DoEvents` でOSをいたわる、実務でそのまま使える堅牢なコードをプレゼントします。
ご自身のVBAエディタ（Standardモジュール）に貼り付けて、構造をじっくり観察してみてください。
Option Explicit
‘ WindowsのAPI「Sleep」を宣言し、ミリ秒単位でマクロを一時停止できるようにする
If VBA7 then
Public Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Public Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
Sub SendMassEmailsSafely()
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim i As Long
Dim totalCount As Long
‘ 設定値
Const BATCH_SIZE As Long = 50 ‘ 何件ごとに休憩するか
Const SLEEP_TIME As Long = 1000 ‘ 休憩時間（ミリ秒）: 1000ミリ秒 = 1秒
totalCount = 200 ‘ 例として全200件送信すると仮定
‘ Outlookアプリケーションのインスタンスを取得
Set olApp = New Outlook.Application
On Error GoTo ErrorHandler
For i = 1 To totalCount
‘ — 1. メールオブジェクトの生成 —
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = “customer_” & i & “@example.com”
.Subject = “重要なお知らせ（テスト ” & i & “）”
.Body = i & “番目のお客様へ。” & vbCrLf & “いつもありがとうございます。”
‘ ※実際の送信テストを行う場合は、次の行のコメントアウトを外してください
‘ .Send
‘ 安全のために今回は「下書き保存（Save）」にしておくことを強く推奨します
.Save
End With
‘ — 2. オブジェクトの解放（メモリリーク防止の極意） —
Set olMail = Nothing
‘ — 3. プロセス管理：一定数ごとのインターバル制御 —
If i Mod BATCH_SIZE = 0 Then
‘ ステータスバーに進捗を表示して優しく見守る
Application.StatusBar = “送信準備中… ” & i & ” / ” & totalCount & ” 件完了。ちょっと休憩中。”
‘ 画面描画とOSの処理を解放
DoEvents
‘ 1秒間、Outlookに完全な休息を与える
Sleep SLEEP_TIME
Else
‘ 普段もこまめにイベントを処理させる
DoEvents
End If
Next i
‘ 終了処理
Application.StatusBar = False
MsgBox “全 ” & totalCount & ” 件の処理が安全に完了しました！”, vbInformation
Exit Sub
ErrorHandler:
Application.StatusBar = False
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Set olMail = Nothing
Set olApp = Nothing
End Sub
—
コードに込めた「プロのこだわり」を解説
このコードには、ただ動くだけではない、実務をサバイブするための3つの技術的美学が隠されています。
1. `i Mod BATCH_SIZE = 0` によるバッチ分割
`Mod` は余りを求める演算子です。「50で割った余りが0」、すなわち 50件、100件、150件……の節目でのみ、深く休む という制御をしています。これにより、無駄な停止時間を削りつつ、Outlookが窒息するのを確実に防ぎます。
2. ループ内での `Set olMail = Nothing`
ここ、超重要です。VBA初心者がやりがちなミスとして、ループの中で `Set olMail = …` と新しく箱を作っているのに、古い箱をそのままメモリに残し続けるというものがあります。これをやるとメモリリーク（メモリの無駄遣い）が起き、後半になるにつれて動作がどんどん重くなります。
使い終わった `olMail` は、ループの直下で即座に `Nothing` を代入してメモリを掃除してあげましょう。
3. `Sleep` API と `DoEvents` の二段構え
`DoEvents` はあくまで「OSに順番を譲る」だけですが、`Sleep` は「指定した時間、VBAの処理の糸を完全に手放す」ため、Outlook内部のMAPIセッションやバックグラウンドの送信キューが片付くのを確実に待つことができます。
—
陥りやすい罠とエラー対策
最後に、この手法を使う上で気をつけておきたいポイントをいくつか。
- 「本当の送信（`.Send`）」と「下書き（`.Save`）」の使い分け
プログラムのバグで「宛先が間違っていて、顧客にテストメールが1000通爆撃された！」なんてことになったら大惨事です。最初は必ず `.Save`（下書き保存）や `.Display`（画面表示）で挙動をテストし、安全性が確認できてから `.Send` に切り替えてください。
- セキュリティソフトやExchangeサーバーの制限
どれだけVBA側で優しく制御しても、会社のExchangeサーバー側が「1分間に送れるのは最大30通まで！」といったポリシー（スロットル制限）を持っている場合、サーバー側で弾かれます。大量送信を行う際は、社内のインフラ担当者やセキュリティポリシーを事前に確認しておきましょう。
—
まとめ
いかがでしたか？
今回は、大量メール送信時のOutlookフリーズを防ぐための「待機処理」と「プロセス管理」について解説しました。
- 高速ループはOutlookを窒息させる
- `DoEvents` でOSに息継ぎをさせる
- `Mod` 演算子を使った「バッチ処理（一定数ごとの休憩）」で完全安定を勝ち取る
- 使い終わったオブジェクトは `Nothing` でこまめに解放する
このテクニックをあなたの引き出しに持っておけば、明日から大量のメール配信依頼が来ても、冷や汗をかくどころか「フッ、バッチ制御で余裕ですが何か？」と優雅にコーヒーを飲むことができるはずです。
あなたの自動化ライフが、より快適でスマートなものになりますように。それではまた、次の技術でお会いしましょう！
