Outlookでフォルダのリストを取得するにはどうすればよいですか？

作者: シルヴィア最終更新日：2024年08月02日

ナビゲーションウィンドウ内のすべてのメールフォルダー（作成された個人用フォルダーを含む）のツリー構造が、作業中にOutlookユーザーに役立つ場合があります。ツリー構造フォルダー全体をすばやく一覧表示するには、VBAコードが役立ちます。このチュートリアルでは、VBAコードを使用してフォルダーのリストを簡単に取得する方法を学習できます。

VBAコードを使用してOutlookのフォルダのリストを取得する

Office タブ - Microsoft Office でタブによる編集と参照を有効にし、仕事をスムーズにします

Officeタブの機能を読む Office タブをダウンロード

OutlookのKutoolsのロックを解除する無料版今すぐ70以上の機能を無制限にご利用いただけます

メールの生産性を向上 AI技術で電子メールにすばやく返信したり、新しい電子メールを下書きしたり、メッセージを翻訳したり、より効率的に作業できるようになります。
メール送信を自動化する自動CC / BCC, 自動転送規則によって。送信自動返信 (不在時) Exchange サーバーを必要とせず...
などのリマインダーを受け取る BCC警告 BCC リストに登録しているときに全員に返信する場合、添付ファイルがない場合に通知する忘れた添付ファイルについては...
メールの効率を向上させる添付ファイル付きで返信 (すべて), 署名または件名に挨拶または日付と時刻を自動追加, 複数のメールに返信する...
メール送信を効率化するメールの取り消し, アタッチメントツール (すべて圧縮、すべて自動保存...)、重複を削除する, クイックレポート...

これらの高度な機能を使用して、Outlook 2024 - 2010 または Outlook 365 を強化します。70 を超える強力な機能を活用して、電子メールエクスペリエンスを向上させましょう。

Kutools for Outlook のすべての機能を読む無料版をダウンロード

VBAコードを使用してOutlookのフォルダのリストを取得する

OutlookでVBAコードを使用してフォルダのリストを取得するには、次のようにします。

1。プレス他の + F11 キーボードのキーを押して アプリケーション向け Microsoft Visual Basic 窓。

2.次に、 Project1 > MicrosoftOutlookオブジェクト > このOutlookSession を開く Project1 – ThisOutlookSession 窓。スクリーンショットを参照してください：

Project1 – ThisOutlookSession ウィンドウ

3.次に、以下のVBAコードをコピーしてProject1 –ThisOutlookSessionウィンドウに貼り付けます。

VBA：Outlookでフォルダのリストを取得する

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub

4。プレス F5 キーボードのキーを押して、VBAコードの実行を開始します。

5.今 マクロ ダイアログボックスが表示されたら、をクリックしてくださいラン

マクロダイアログボックス