VBA：ExcelからOutlookのサブフォルダー名と階層パスの取得方法

by chasou_tech · 2023年10月17日

１．やりたいこと

VBAでOutlookのメールを検索する際に、フォルダー構成を取得することで全フォルダーの検索が可能になるので、サブフォルダー名とその階層パスを取得したい。
下記の「関連記事」のVBAと組み合わせる感じです。

２．サンプルコード

サンプルコードは以下となります。
ひとまずサブフォルダーのパスが取得できたので、階層構成の取得はできます。
後は配列等に取り込んだりして使えます。

VBA サンプルコード

Option Explicit Sub Get_OutlookFolder() Dim objOutlook As Outlook.Application Dim OLNamespace As Outlook.Namespace Dim OLInbox As Variant Dim i As Long Set objOutlook = New Outlook.Application Set OLNamespace = objOutlook.GetNamespace("MAPI") Set OLInbox = OLNamespace.GetDefaultFolder(olFolderInbox) 'デフォルトフォルダの「受信トレイ」はこれで取得できる。' Debug.Print OLInbox '「受信トレイ」配下のサブフォルダーのフォルダー名を階層として取得できる' For i = 1 To OLInbox.Folders.Count Debug.Print OLInbox.Folders(i).FullFolderPath Next i End Sub

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Option Explicit Sub Get_OutlookFolder()   Dim objOutlook As Outlook.Application Dim OLNamespace As Outlook.Namespace Dim OLInbox As Variant Dim i As Long       Set objOutlook = New Outlook.Application     Set OLNamespace = objOutlook.GetNamespace("MAPI")          Set OLInbox = OLNamespace.GetDefaultFolder(olFolderInbox)          'デフォルトフォルダの「受信トレイ」はこれで取得できる。'     Debug.Print OLInbox          '「受信トレイ」配下のサブフォルダーのフォルダー名を階層として取得できる'     For i = 1 To OLInbox.Folders.Count         Debug.Print OLInbox.Folders(i).FullFolderPath     Next i End Sub

◆関連記事

VBA：ExcelからOutlookのメールを特定のフォルダーにエクスポートする方法

投稿: 2023年10月17日

【VBA】ExcelからOutlookのメールを特定のフォルダーにエクスポートする方法

VBA：ExcelからOutlookの本文などメールの情報を抽出する方法

投稿: 2023年9月28日

【VBA】ExcelからOutlookの本文などメールの情報を抽出する方法

---

• 次の記事 Power Automate Desktop：Excelの行数とカラム数の取得方法
• 前の記事 VBA：ExcelからOutlookのメールを特定のフォルダーにエクスポートする方法

おすすめ

• 

  VBA：フォルダの削除「RmDirステートメント」

  2022年6月27日

   by chasou_tech · Published 2022年6月27日 · Last modified 2023年2月10日

• 

  VBA：【ADO】【取込み】CSVファイルのAccessテーブルへのインポート・取込み「SQL文」

  2022年6月8日

   by chasou_tech · Published 2022年6月8日 · Last modified 2023年2月10日

• 

  VBA：ツールのバージョン管理（txtファイル利用）

  2022年10月21日

   by chasou_tech · Published 2022年10月21日 · Last modified 2023年2月10日