こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを押すだけの世界から一歩踏み出し、自分の手で業務を自在にコントロールするコードを書く――最高にワクワクするステージに来ましたね。
さて、あなたが今「数千件のメールを一括処理するマクロ」を書こうとしているなら、避けて通れない非常に重要なテーマがあります。それが「メモリリーク対策とオブジェクトの解放（Set Nothing）」です。
「え、VBAって勝手にメモリを掃除してくれないの？」
そう思ったあなた。実は、Outlook VBAはExcel VBA以上にメモリの居座り（メモリリーク）を起こしやすい魔物潜む領域なんです。
ここをクリアすれば、あなたも「ただ動くコードを書く人」から「システムを壊さないプロフェッショナルなエンジニア」へとランクアップできます。一緒にその極意をマスターしましょう！
—
1. なぜOutlook VBAでメモリがパンクするのか？
数千件のメールや予定表をループ処理するマクロを作ったとき、こんな現象に出くわしたことはありませんか？
- 処理の途中から急激に動作が重くなる
- タスクマネージャーを見ると、Outlookのメモリ使用量が膨れ上がっている
- 最悪の場合、Outlookがフリーズして強制終了する
原因は、あなたがループで生成したOutlookのオブジェクト（MailItemやFolderなど）の亡霊が、メモリ上に居座り続けているからです。
オブジェクトの「所有権」という厄介な仕組み
VBAでは、`Set myItem = myFolder.Items(i)` のように記述した瞬間、メモリ上に「メールオブジェクト」という実体が生成され、それを変数 `myItem` が指し示します（参照します）。
Excelのセル（`Range(“A1”).Value = 125` のような値）と違い、OutlookのオブジェクトはCOMコンポーネントという外部の仕組みで動いています。VBAの「変数が消えたらメモリも片付けよう」という自動お掃除機能（ガベージコレクション）は、このCOMオブジェクトに対してはあまり機敏に働きません。
結果として、ループを回すごとにメモリのゴミが積み上がり、最終的にメモリ不足で沈没するというわけです。
—
2. 【図解的イメージ】Set Nothing とは何か？
メモリリークを防ぐ特効薬、それが `Set 〇〇 = Nothing` です。
イメージとしては、以下のような感じです。
[ループ 1回目]
変数 “myItem” ──────> [ メモリ上の巨大なメール実体 A ] （処理完了！でもまだメモリにいる）
[対策なしの場合]
変数 “myItem” ──────> [ メモリ上の巨大なメール実体 B ] （実体Aもメモリに残ったまま！）
※これが数千回繰り返され、メモリが爆発する。
[Set Nothing を入れた場合]
変数 “myItem” ──────> [ なし (Nothing) ] （実体Aは綺麗に消去される！）
変数と実体の「紐をプツンと切る（`= Nothing`）」ことで、VBAに対して「もうこのオブジェクトは用済みだから、メモリから消していいよ」と指示を出すわけです。
—
3. 実践！数千件を安全に処理するセキュア・コード
それでは、実際にメモリリークを完璧に防ぐコードの書き方を見てみましょう。
今回は、「受信トレイの中にある数千件のメールをループし、特定の件名のものにフラグをつける」というシナリオを想定します。
Sub ProcessInboxMailsSafely()
Dim ns As Outlook.NameSpace
Dim inboxFolder As Outlook.Folder
Dim mailItems As Outlook.Items
Dim targetItem As Object ‘ MailItemだけでなくMeetingItemなども入るためObject推奨
Dim i As Long
‘ 1. セッションとフォルダの取得
Set ns = Application.GetNamespace(“MAPI”)
Set inboxFolder = ns.GetDefaultFolder(olFolderInbox)
Set mailItems = inboxFolder.Items
‘ 大量件数を処理するため、後ろからループ（逆順ループ）するのが鉄則
‘ ※前からループすると、アイテム削除や移動時にインデックスが狂ってバグります
For i = mailItems.Count To 1 Step -1
‘ エラーハンドリングを挟むと、1通の破損メールでマクロが止まるのを防げます
On Error Resume Next
Set targetItem = mailItems(i)
If Err.Number = 0 Then
‘ メールかつ、特定の件名の場合の処理
If targetItem.Class = olMail Then
If InStr(targetItem.Subject, “【重要】”) > 0 Then
‘ 例：フラグをつける
targetItem.FlagStatus = olFlagMarked
targetItem.Save
End If
End If
End If
On Error GoTo 0
‘ ★【最重要】ループの最後で必ずオブジェクトを解放する！
Set targetItem = Nothing
‘ 100件ごとに進捗をステータスバーに出すと親切＆フリーズ感をごまかせる
If i Mod 100 = 0 Then
Application.StatusBar = “残り処理件数: ” & i
DoEvents ‘ OSに処理権を返すことでフリーズを防ぐ
End If
Next i
‘ ステータスバーを元に戻す
Application.StatusBar = “”
‘ 2. ループ外で使った大きなオブジェクトも最後に解放
Set mailItems = Nothing
Set inboxFolder = Nothing
Set ns = Nothing
MsgBox “すべての処理が安全に完了しました！”, vbInformation
End Sub
コードの重要ポイント解説
1. ループ内での `Set targetItem = Nothing`
これが今回の主役です。ループの1回が終わるたびに、変数が掴んでいたメモリの参照を断ち切ります。これがあるかないかで、数千件処理したときのメモリ消費量が天と地ほど変わります。
2. `Set mailItems = Nothing` などの一括解放
プログラムの最後（出口）でも、最初に取得した親オブジェクト（NameSpaceやFolderなど）をしっかりと `Nothing` にして終了します。
3. `DoEvents` の活用
大量処理中にOutlookが「応答なし」になるのを防ぐため、適度な間隔で `DoEvents` を挟み、OSに息継ぎをさせます。
—
4. 陥りやすい罠：やってはいけないNGパターン
初学者がやりがちな「メモリリーク製造コード」の代表例です。ご自身のコードがこうなっていないかチェックしてみてください。
‘ 【NGパターン】
Sub BadCode()
Dim myFolder As Outlook.Folder
Set myFolder = Application.GetNamespace(“MAPI”).GetDefaultFolder(olFolderInbox)
Dim i As Long
For i = 1 to myFolder.Items.Count
‘ ドットつなぎ（オブジェクトのチェーン）は絶対NG！
‘ 変数に受けていないため、解放するすべがなくメモリのゴミが残る
Debug.Print myFolder.Items(i).Subject
Next i
‘ 解放処理が一切ない！
End Sub
- ドット（.）でオブジェクトをつなぎすぎない：`myFolder.Items(i).Subject` のように書くと、見えないところで一時的なオブジェクトが生成され、メモリの海を漂うことになります。
- 解放忘れ：プログラムが終了すればVBAが勝手に片付けてくれる、というのは小規模なマクロの話。数千件を扱う実務レベルのコードでは、「自分で開いた扉は自分で閉める（使ったオブジェクトは `Nothing` にする）」が鉄則です。
—
最後に：プロのエンジニアとしてのマナー
ここをクリアしたあなたなら、もう「ただ動けばいいや」というコードからは卒業です。
「自分が書いたコードが、社内の誰かのPCで動いたとき、負荷をかけずに美しく完遂するか？」
ここまで配慮して書かれたVBAコードは、驚くほど安定し、エラーを起こしません。
明日からのあなたのOutlook VBAライフが、よりスマートで快適なものになりますように。
ここをクリアすれば、Outlook VBAの基本はバッチリですよ！自信を持って進んでくださいね。
