こんにちは！いつも業務の自動化や効率化に挑戦されていて素晴らしいですね。
ExcelやWordには「マクロの記録」がありますが、Outlookにはマクロの記録機能がありません。 そのため、「何から手を付けたらいいのかわからない」「ネットのコードをコピペしているけれど、少し環境が変わると動かなくなってしまう」と悩んでいる方も多いのではないでしょうか。
でも、安心してください。今回ご紹介する「Store（ストア）の全列挙」という技術をマスターすれば、Outlook内のメールボックスやPSTファイル（個人用フォルダー）を自由自在に、かつ安全に探索できるようになります。
「ここをクリアすれば、Outlook VBAの基本はバッチリですよ」と言える、極めて重要で一生モノの知見を、優しく丁寧に、そして実務に即したプロの視点を交えて解説します。一緒に一歩を踏み出しましょう！
—
1. Outlookの「家系図」を理解しよう（オブジェクトモデル）
まずは、Outlook VBAを操作するうえで絶対に避けて通れない「オブジェクトモデル（階層構造）」をスッキリ整理しておきましょう。
Outlookのデータ構造は、以下のような「家（ツリー）構造」になっています。
[Application] (Outlookアプリ全体)
│
└─ [Session] (現在のサインイン状態 / ≒ NameSpace)
│
└─ [Stores] (接続されているすべてのデータ保管庫の集まり)
│
├─ [Store 1] (あなたのメインメールボックス)
│ └─ [Folder] (受信トレイ、送信済みトレイなど)
│
├─ [Store 2] (過去メールを保存したPSTファイル)
│
└─ [Store 3] (チームで使っている共有メールボックス)
「Session」と「NameSpace」って何が違うの？
VBAの解説サイトを見ると、`Application.GetNamespace(“MAPI”)` という書き方と、`Application.Session` という書き方の2種類が出てきて混乱したことはありませんか？
結論から言うと、現代のOutlook VBAでは `Application.Session` を使うのがスマートで推奨されます。
どちらも最終的に同じ「セッション情報（NameSpaceオブジェクト）」を指しますが、`Session`プロパティを使う方がコードがシンプルになり、読みやすくなります。
—
2. 「Store（ストア）」とは何か？
Outlookにおける「Store（ストア）」とは、メールや予定表などのデータが実際に格納されている「独立した引き出し（データベース）」のことです。
具体的には、以下のようなものがすべて1つの「Store」として扱われます。
- メインのメールアドレス（Exchangeアカウント、IMAP/POPアカウント）
- 共有メールボックス（部署共通のアドレスなど）
- アーカイブ用のPSTファイル（ローカルに保存された「個人用フォルダー」）
- パブリックフォルダ
「特定のフォルダからメールを読み込みたい」と思ったとき、フォルダ名（例: `”受信トレイ”`）をコードに直接書いてしまう（ハードコーディングする）と、環境が変わったり、共有メールボックスが追加されたりした瞬間にマクロがエラーで動かなくなってしまいます。
だからこそ、まずは「いまOutlookにどんなStore（引き出し）が繋がっているのか？」をプログラムで自動的に調べる（動的探索する）技術が極めて重要なのです。
—
3. 【実践】すべてのStoreを安全に全列挙するプロ仕様マクロ
それでは、実際に動くVBAコードを見てみましょう。
このコードは、Outlookに接続されているすべてのストアを巡回し、その名前や種類、ファイルパスなどをイミディエイトウィンドウに美しく出力するものです。
エラーが起きやすいポイントをあらかじめ回避する「プロ仕様」の設計にしていますので、そのまま標準モジュールに貼り付けて実行していただけます。
Sub EnumerateAllStores()
‘ =================================================================
‘ 目的: Outlookに接続されているすべてのStore（データ保管庫）を列挙する
‘ 特徴: エラーハンドリング完備、ストアの種類を自動判別
‘ =================================================================
Dim outlookSession As Outlook.NameSpace
Dim currentStore As Outlook.Store
Dim rootFolder As Outlook.Folder
‘ 1. 現在のセッション（Namespace）を取得
Set outlookSession = Application.Session
Debug.Print “=== ストアの列挙を開始します (総数: ” & outlookSession.Stores.Count & ” 個) ===”
Debug.Print “————————————————–”
‘ 2. すべてのストアをループ処理
For Each currentStore In outlookSession.Stores
‘ エラー対策: 接続が切れているPSTや権限のない共有メールボックス対策
On Error Resume Next
‘ ストアのルートフォルダ（一番親のフォルダ）を取得
Set rootFolder = currentStore.GetRootFolder
If Err.Number <> 0 Then
‘ アクセス権がない、またはオフラインで開けない場合
Debug.Print “[警告] アクセスできないストアをスキップしました: ” & currentStore.DisplayName
Err.Clear
GoTo NextStore
End If
On Error GoTo 0 ‘ エラーハンドリングを元に戻す
‘ 3. ストアの情報を取得して出力
Debug.Print “【表示名】 : ” & currentStore.DisplayName
Debug.Print “【一意のID】 : ” & currentStore.StoreID
Debug.Print “【ストア種別】: ” & GetStoreTypeName(currentStore)
‘ ファイルパスの取得（PSTやOSTファイルの場合のみパスが存在します）
If currentStore.FilePath <> “” Then
Debug.Print “【ファイル名】: ” & currentStore.FilePath
Else
Debug.Print “【ファイル名】: (クラウドまたはオンライン接続のためパスはありません)”
End If
Debug.Print “————————————————–”
NextStore:
Next currentStore
Debug.Print “=== ストアの列挙が完了しました ===”
‘ 4. オブジェクトの解放（メモリのクリーンアップ）
Set rootFolder = Nothing
Set currentStore = Nothing
Set outlookSession = Nothing
End Sub
”’
”’
Private Function GetStoreTypeName(ByVal targetStore As Outlook.Store) As String
‘ OlExchangeStoreType 列挙型を判定します
Select Case targetStore.ExchangeStoreType
Case olPrimaryExchangeMailbox
GetStoreTypeName = “メインのExchangeメールボックス”
Case olExchangeMailbox
GetStoreTypeName = “共有メールボックス または 追加されたメールボックス”
Case olAdditionalExchangeMailbox
GetStoreTypeName = “追加のExchangeメールボックス”
Case olNotAnExchangeStore
‘ Exchange以外（PST、IMAP、POPなど）
If InStr(1, targetStore.FilePath, “.pst”, vbTextCompare) > 0 Then
GetStoreTypeName = “ローカル保存用ファイル (.pst)”
Else
GetStoreTypeName = “その他のストア (IMAP/POP等)”
End If
Case Else
GetStoreTypeName = “不明なストアタイプ”
End Select
End Function
実行方法
1. Outlookを開いた状態で `Alt + F11` キーを押し、VBAエディタを開きます。
2. メニューの `挿入` ＞ `標準モジュール` をクリックします。
3. 上記のコードを貼り付けます。
4. `F5` キーを押して実行します。
5. `Ctrl + G` キーを押して「イミディエイトウィンドウ」を開き、結果を確認してください。
—
4. プロが教える！陥りやすい罠と「極限の知見」
このコードには、ただ動くだけでなく、実際の現場で発生する「厄介なエラー」を回避するための知恵が詰まっています。初心者から一歩抜け出すために、以下のポイントを押さえておきましょう。
罠①：アクセスできないストアでマクロが止まる
Outlookを使っていると、以下のような状況がよく起こります。
- 過去に使っていたが、今は存在しないネットワーク上のPSTファイルがOutlookに登録されたままになっている
- 他の人の共有メールボックスにアクセスしようとしたが、権限が剥奪されている
このようなストアに対して情報を取得しようとすると、VBAは無慈悲に「実行時エラー」を出して止まってしまいます。
コード内の以下の部分が、その防御壁になっています。
On Error Resume Next
Set rootFolder = currentStore.GetRootFolder
If Err.Number <> 0 Then …
「ルートフォルダが取得できるか？」を一度テストし、失敗したら安全にスキップする。この数行を入れるだけで、あなたのマクロの信頼性は劇的に向上します。
罠②：COMオブジェクトの解放漏れ
Outlook VBAは、Excel VBAよりもメモリ管理にシビアです。マクロを実行した後にOutlookの挙動が重くなったり、Outlookを閉じてもタスクマネージャーにプロセスが残り続けたりすることがあります。
これを防ぐために、コードの最後で必ず `Set オブジェクト = Nothing` を行い、使い終わったオブジェクトを明示的にメモリから解放してあげましょう。これは「美しいコード」を書くためのエチケットです。
—
5. 特定のストアを自動で特定して操作する応用例
全列挙ができるようになったら、次は「特定のストアだけを狙い撃ちして処理する」というステップに進みましょう。
例えば、「『営業部共通』という名前が含まれる共有メールボックスを自動で見つけて、その中の受信トレイを処理したい」という場合は、以下のような書き方ができます。
Dim myStore As Outlook.Store
Dim targetFolder As Outlook.Folder
For Each myStore In Application.Session.Stores
‘ 表示名に「営業部共通」が含まれているか判定
If InStr(myStore.DisplayName, “営業部共通”) > 0 Then
‘ そのストアの「受信トレイ」を直接取得
Set targetFolder = myStore.GetDefaultFolder(olFolderInbox)
‘ ここにメール処理のコードを書く
MsgBox “ターゲットのフォルダが見つかりました: ” & targetFolder.FolderPath
Exit For ‘ 見つかったらループを抜ける
End If
Next myStore
このように、名前の一部を使って動的にストアを特定すれば、PCの環境やアカウントの設定順序が変わっても、常に同じように正しく動作する極めて堅牢なマクロが完成します。
—
まとめ：ここをクリアすれば、Outlook VBAの基本はバッチリです！
お疲れ様でした！
今回は、Outlook VBAの心臓部である `Application.Session.Stores` を使った動的探索のテクニックを解説しました。
- Outlookは「Application ＞ Session ＞ Store ＞ Folder」という階層でデータを管理している
- `Application.Session` を使うのが現代の標準的なスタイル
- 環境に依存しないマクロを作るには、`Stores` をループで回して動的に探すのがベスト
- エラーハンドリング（`On Error Resume Next`）とオブジェクトの解放（`Nothing`）を忘れずに
この考え方は、メールの自動仕分け、添付ファイルの自動保存、予定表の転記など、あらゆる応用マクロの共通の土台になります。この土台さえマスターしてしまえば、もう「コピペだけのマクロ」からは卒業です。
あなたの業務効率化がさらに一歩前進することを、心から応援しています。分からないことがあれば、いつでもこの記事に戻ってきてコードを参考にしてくださいね。
それでは、また次のレクチャーでお会いしましょう！
