Outlookで全てのサブフォルダーを開くにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

Outlookのフォルダー下に複数のサブフォルダーを作成した場合、それらすべてのサブフォルダーをすぐに開いたり展開したりするにはどうすればよいでしょうか？この記事では、その作業を解決するために役立つVBAコードをご紹介します。

VBAコードを使用してOutlookからすべてのサブフォルダーを開くまたは展開する

VBAコードを使用してOutlookからすべてのサブフォルダーを開くまたは展開する

以下のVBAコードを適用して、すべてのOutlookアカウントからすべてのサブフォルダーを展開してください：

1. ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」＞「モジュール」をクリックし、次のマクロをモジュールウィンドウに貼り付けます。

VBAコード: Outlookからすべてのサブフォルダーを開く：

Sub ExpandAllMailFolders()
    Dim xCurrentFolder As Folder
    Dim xAllFolders As Folders
    Dim xFolder As Folder
    On Error Resume Next
    Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder
    Set xAllFolders = Application.Session.Folders
    For Each xFolder In xAllFolders
        Call ProcessFolders(xFolder)
    Next
    Set Application.ActiveExplorer.CurrentFolder = xCurrentFolder
End Sub
Sub ProcessFolders(ByVal CurFolder As Folder)
    Dim xSubfolder As Folder
    On Error Resume Next
    If CurFolder.DefaultItemType <> olMailItem Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = CurFolder
    DoEvents
    If CurFolder.Folders.Count = 0 Then Exit Sub
    For Each xSubfolder In CurFolder.Folders
        Call ProcessFolders(xSubfolder)
    Next
End Sub

3. そして、 F5キーを押してこのコードを実行すると、Outlookのすべてのアカウント内のすべてのサブフォルダーが展開されます。スクリーンショットをご覧ください：