こんにちは！Outlook VBAの自動化の世界へようこそ。
マクロの記録から一歩踏み出し、「自分でコードを書いて業務を効率化したい！」という熱意を持つあなたへ、今日はプログラミングの現場で本当によくある「絶対に知っておかなければならない鉄則」をお伝えします。
ここをクリアできるかどうかで、あなたのVBAスキルが「見様見真似の初心者」から「信頼できるエンジニア」へ大きくステップアップするかどうかが決まります。ぜひ最後までついてきてくださいね。
—
1. なぜ「メールの削除ループ」でエラーが起きるのか？
日々の業務で、こんな自動化をやりたくなるとします。
- 「受信トレイの中から、『件名に「広告」と入っているメール』をすべて探し出して削除したい！」
初学者が真っ先に思いつくのは、上から順番に見ていく次のようなコードです。
‘ 【やってはいけない！危険な順方向ループの例】
Sub BadDeleteLoop()
Dim ns As NameSpace
Dim folder As MAPIFolder
Dim i As Long
Set ns = Application.GetNamespace(“MAPI”)
Set folder = ns.GetDefaultFolder(olFolderInbox)
‘ 上から順に処理しようとする
For i = 1 To folder.Items.Count
Dim mail As MailItem
Set mail = folder.Items(i)
If mail.Subject Like “広告” Then
mail.Delete ‘ 削除！
End If
Next i
End Sub
一見、完璧なコードに見えますよね？ しかし、これを実行すると、「消したいメールがなぜか残る」「エラーでマクロが止まる」という怪奇現象が起きます。
原因は「インデックスのズレ（詰められ現象）」
電車の切符売り場の行列をイメージしてください。
あなたが前から順番に「要チェックや！」と人を1人ずつ摘み出して外（削除）に放り出しているとします。
1. 1番目の人を外に出しました。
2. すると、もともと2番目にいた人が、自動的に1番目に繰り上がります。
3. 次のループで、あなたの手元のカウンター（変数 `i`）は「次は2番目の人をチェックするぞ」と動きます。
4. 結果として、もともと2番目にいて、1番目に繰り上がった人は、誰からもチェックされずにスルーされてしまうのです！
これが、Outlook（ひいてはExcelやAccessなどのコレクション操作全般）で発生するインデックスズレの正体です。
—
2. 解決の切り札：逆順ループ（For i = Count To 1 Step -1）
この問題を一発で、美しく解決するのが「逆順ループ」というテクニックです。
後ろの人間（最後のメール）から順に処理していけば、たとえ後ろの人が消えても、それより前（若い番号）にいる人たちの位置は一切変わりません。
構造を視覚的に見てみましょう。
[ 全体の流れ：後ろからお掃除する ]
Count (例: 10番目) ← ここからスタート！
…
3番目
2番目
1番目 ← ここでゴール！
実際の正しいコード
それでは、実務でそのまま使える、安全で堅牢なコードを書いてみましょう。
‘ 【これぞプロの技！安全な逆順ループの例】
Sub SafeDeleteLoop()
Dim ns As NameSpace
Dim folder As MAPIFolder
Dim i As Long
Dim mail As MailItem
Dim deleteCount As Long
‘ セッションとフォルダの取得
Set ns = Application.GetNamespace(“MAPI”)
Set folder = ns.GetDefaultFolder(olFolderInbox)
deleteCount = 0
‘ 【鉄則】最後のアイテム（Count）から 1 まで、ステップ「-1」で逆向きにループする
For i = folder.Items.Count To 1 Step -1
‘ アイテムを取得（念のためMailItemかどうかも判定すると安全）
If TypeName(folder.Items(i)) = “MailItem” Then
Set mail = folder.Items(i)
‘ 条件判定：件名に「広告」が含まれているか？
If mail.Subject Like “広告” Then
mail.Delete ‘ 削除実行！
deleteCount = deleteCount + 1
End If
End If
Next i
‘ 完了メッセージ
MsgBox deleteCount & “件の広告メールを削除しました。”, vbInformation
End Sub
—
3. ここがエンジニアのこだわりポイント（知っておくべき注意点）
コードの意味が分かったところで、さらに実務で役立つ「ワンランク上の知見」をいくつか授けておきますね。
① なぜ `Step -1` なのか？
VBAの `For` ループは、デフォルトでは `Step 1`（1ずつ増える）です。これを `Step -1`（1ずつ減らす）と明示することで、カウンターをカウントダウンさせることができます。これを忘れると、永遠にループが始まらない（あるいは即座に終わる）ので注意してください。
② `TypeName` による型安全性の担保
Outlookのフォルダの中には、メール（`MailItem`）だけでなく、会議の予定（`AppointmentItem`）や連絡先、タスクなどが混ざることがあります。もしフォルダ内にメール以外のアイテムがある状態で `mail.Subject` を叩くと、型不一致エラー（Error 13）でマクロがクラッシュします。
`TypeName(folder.Items(i)) = “MailItem”` で一度メールである確証を得るのが、プロの防御的プログラミングです。
③ パフォーマンスへの配慮
数千件という膨大なメールを1通ずつ `mail.Delete` していくと、Outlookがフリーズしたように重くなることがあります。
もし「フォルダの中身を空にする」ような極端なケースであれば、ループではなく `Folder.Items` を一括操作する方法（フィルターを使った検索など）を検討すべきですが、「特定の条件に合致したものだけを個別判定して消す」という要件においては、今回紹介した逆順ループが最も確実でバグりにくい王道の手法です。
—
まとめ
ここをクリアすれば、Outlook VBAの基本はバッチリですよ！
- コレクションを削除しながらループするときは、順方向（1からCount）は絶対にNG！
- 後ろから前へ！ `For i = Count To 1 Step -1`（逆順ループ）を使うこと！
この鉄則さえ頭に叩き込んでおけば、今後あなたがどれだけ複雑なメール整理マクロを書くことになっても、インデックスのズレに悩まされることは二度とありません。
ぜひご自身の環境でも試して、この「後ろから掃除していく爽快感」を味わってみてくださいね。あなたの業務自動化ライフを、これからも応援しています！
