こんにちは！Outlookの仕分けやメール整理に日々頭を悩ませていませんか？
「マクロの記録」ボタンを押したはいいものの、Outlookの世界ではExcelのように簡単にはセルが記録されず、途方に暮れてしまった方も多いのではないでしょうか。
今回は、Outlook VBAの基礎のキモであり、実務で最も必要とされる「階層化されたサブフォルダを全走査（再帰的探索）するアルゴリズム」を徹底解説します。
ここをクリアすれば、Outlook VBAのオブジェクトモデルの本質が手に取るようにわかるようになります。優しく、しかし本質的なプログラミングの世界へご案内しますね。
—
1. なぜOutlookのフォルダ探索は難しいのか？
Excelであれば `Worksheets(1)` のように一発でシートを指定できますが、Outlookのフォルダ構造は「ツリー構造（階層構造）」になっています。
[Outlookのルート]
┣ 受信トレイ
┃ ┣ 2023年度案件 ━━ [ここに目的のフォルダがある！]
┃ ┗ 2024年度案件
┗ 送信済みアイテム
「受信トレイ」の中に「2023年度案件」があり、さらにその中に……と、何階層も深くフォルダが掘られている場合、普通の `For` ループだけでは深い階層まで見つけ出すことができません。
ここで登場するのが、自分自身を呼び出して階層の奥深くへと潜っていく「再帰（さいき）処理」という魔法のテクニックです。
—
2. 押さえておくべき基本の3オブジェクト
Outlook VBAを動かす上で、まず頭に入れておくべき三種の神器がこちらです。
1. `Application`: Outlookアプリそのもの。すべての根幹。
2. `NameSpace`: データの入れ物（セッション）を管理する窓口。通常は `”MAPI”` を指定します。
3. `Folder` / `Folders`: 個々のフォルダと、フォルダの集まり（コレクション）。
このオブジェクトモデルの繋がりをイメージできるようになると、エラーが出ても「あ、今どの階層で迷子になったな」とすぐに気づけるようになります。
—
3. 実装コード：深海まで潜る「再帰的探索」の全貌
それでは、実際にすべてのサブフォルダを巡回し、指定した名前のフォルダを探し出して中身を処理する実用コードを見てみましょう。
VBAの標準モジュールにそのままコピー＆ペーストして実行できます。
‘ ====================================================================
‘ フォルダの再帰的探索を行うメインプロシージャ
‘ ====================================================================
Sub Main_FindTargetFolder()
Dim ns As NameSpace
Dim rootFolder As folder
Dim targetFolderName As String
Dim foundFolder As folder
‘ 1. MAPI名前空間を取得（Outlookセッションの開始）
Set ns = Application.GetNamespace(“MAPI”)
‘ 2. 探索の起点となるフォルダを指定（今回は「受信トレイ」を起点とする）
Set rootFolder = ns.GetDefaultFolder(olFolderInbox)
‘ 3. 探したいフォルダの名前を指定
targetFolderName = “完了案件”
‘ 4. 再帰探索関数の呼び出し
Set foundFolder = FindFolderRecursive(rootFolder, targetFolderName)
‘ 5. 結果の判定
If Not foundFolder Is Nothing Then
MsgBox “見つかりました！” & vbCrLf & _
“パス: ” & foundFolder.FolderPath & vbCrLf & _
“アイテム数: ” & foundFolder.Items.Count & “件”, _
vbInformation, “探索成功”
‘ ここに目的のフォルダに対する処理（メールの移動など）を書けます
‘ 例: foundFolder.Items(1).Move anotherFolder など
Else
MsgBox “指定されたフォルダは見つかりませんでした。”, vbExclamation, “探索失敗”
End
End Sub
‘ ====================================================================
‘ 【再帰関数】指定フォルダとその子孫フォルダを総当たりで探すコアロジック
‘ ====================================================================
Function FindFolderRecursive(ByVal currentFolder As folder, ByVal targetName As String) As folder
Dim subFld As folder
Dim resultFld As folder
‘ ① まず、今いるフォルダの名前が一致するかチェック
If currentFolder.Name = targetName Then
Set FindFolderRecursive = currentFolder
Exit Function
End If
‘ ② 一致しない場合、子フォルダ（Foldersコレクション）を順番に見ていく
For Each subFld In currentFolder.Folders
‘ ★ここが再帰のポイント：自分自身をもう一度呼び出して、さらに奥へ潜る
Set resultFld = FindFolderRecursive(subFld, targetName)
‘ もし奥深くで発見されていたら、その結果を上にバトンタッチして抜け出す
If Not resultFld Is Nothing Then
Set FindFolderRecursive = resultFld
Exit Function
End If
Next subFld
‘ ③ 最後まで見つからなければNothingを返す
Set FindFolderRecursive = Nothing
End Function
—
4. コードの読み解きと、初心者が陥りやすい罠
このコードの肝は、`FindFolderRecursive` 関数の中にある 「自分自身をもう一度呼び出す（`FindFolderRecursive(subFld, targetName)`）」 という部分です。
陥りがちなエラーと対策
1. 「オブジェクト変数または With ブロック変数が見つかりません」エラー
- 原因: `folder` や `NameSpace` などの型宣言を忘れていたり、スペルミスをしている場合に発生します。
- 対策: モジュールの先頭には必ず `Option Explicit` を記述し、変数の宣言を強制するようにしましょう。
2. 無限ループやスタックオーバーフローへの恐怖
- 解説: 「再帰って無限ループしそうで怖い……」と感じる初学者の方は多いです。しかし、Outlookのフォルダ構造は有限であり、一番深い末端のフォルダに達すると `For Each` ループが自然に終了して上層に戻る（リターンする）ため、安全に処理が完了します。
—
5. ここをクリアすれば、Outlook VBAの基本はバッチリ！
いかがでしたでしょうか？
「フォルダの中にフォルダがあるかもしれない」というツリー構造の壁を、再帰処理というスマートな手法で突破できるようになると、Outlookを使った自動化の幅は一気に何倍にも広がります。
- 定期的に特定のサブフォルダの未読メールを集計する
- 階層化されたアーカイブフォルダへ自動でメールを振り分ける
こうした実務上の面倒なタスクも、このアルゴリズムをベースにすれば自由自在です。ぜひご自身の環境でも試してみてくださいね。
ここをクリアしたあなたなら、もうマクロの記録の卒業生です。自信を持って、次の自動化の扉を開いていきましょう！
