Outlookを起動する際にすべてのフォルダーを自動的に展開するにはどうすればよいですか？

Author: Kelly Last Modified: 2025-05-23

通常、Outlookのナビゲーションペインでフォルダーを展開または折りたたんでプログラムを閉じると、Outlookを再び開いたときにそのフォルダーは展開または折りたたまれた状態が保持されます。しかし、Outlookを起動するたびにすべてのフォルダーを自動的に展開したい場合はどうすればよいでしょうか？この記事では、それを実現するためのVBAソリューションを提供します。

VBAを使用してOutlookを起動時にすべてのフォルダーを自動的に展開する

VBAを使用してOutlookを起動時にすべてのフォルダーを自動的に展開する

このガイドでは、VBAスクリプトを使用してOutlookを起動するたびにナビゲーションペイン内のすべてのフォルダーを自動的に展開する方法を説明します。以下の手順に従ってVBAスクリプトを実装してください：

Alt + F11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

次に プロジェクト 1 と Microsoft Outlook オブジェクト を プロジェクト ペインで展開し、ダブルクリックして ThisOutlookSession ウィンドウを開き、以下のVBAコードを貼り付けます。

VBA: Outlookで全てのフォルダーを自動的に展開する

Public WithEvents GEx As Explorer
Public GFlag As Boolean
Private Sub Application_Startup()
  'Update by ExtendOffice 2023/12/08
  Set GEx = Application.ActiveExplorer
  GFlag = False
End Sub

Private Sub GEx_SelectionChange()
  If GFlag = False Then
    ExpandAllFolders
  End If
  GFlag = True
End Sub

Public Sub ExpandAllFolders()
  Dim xNameSpace As Outlook.NameSpace
  Dim xFlds As Outlook.Folders
  Dim xCurrFld As Outlook.MAPIFolder
  Dim xFld As Outlook.MAPIFolder
  Dim xExpandDefaultStoreOnly As Boolean
  Dim xModule As NavigationModule
  On Error Resume Next
  xExpandDefaultStoreOnly = False
  Set xNameSpace = Application.Session
  Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule
  Set xCurrFld = Application.ActiveExplorer.CurrentFolder
  If xExpandDefaultStoreOnly = True Then
    Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox)
    Set xFld = xFld.Parent
    Set xFlds = xFld.Folders
    LoopFolders xFlds, True
  Else
    LoopFolders xNameSpace.Folders, True
    LoopFolders xNameSpace.Folders, False
  End If
  DoEvents
  Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule
  Set Application.ActiveExplorer.CurrentFolder = xCurrFld
  Set xNameSpace = Nothing
  Set xModule = Nothing
  Set xCurrFld = Nothing
End Sub

Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean)
  Dim xFld As Outlook.MAPIFolder
  On Error Resume Next
  For Each xFld In Flds
    Select Case All
      Case True
        If xFld.DefaultItemType = olMailItem Then
          Set Application.ActiveExplorer.CurrentFolder = xFld
          DoEvents
          If xFld.Folders.Count > 0 Then
            LoopFolders xFld.Folders, All
          End If
        End If
      Case False
        Set Application.ActiveExplorer.CurrentFolder = xFld
        DoEvents
        If xFld.Folders.Count > 0 Then
          LoopFolders xFld.Folders, All
        End If
    End Select
  Next
End Sub

コードを保存し、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

これで、Outlookを再起動するたびにすべてのフォルダーが自動的に展開されるようになります。

注意：

このVBAは、Outlookを再起動しても折りたたまれた検索フォルダーを開くことはできません。
VBAスクリプトが正しく機能するためには、Outlookのマクロ設定を調整することが重要です。[ファイル] > [オプション] > [トラストセンター] > [トラストセンターの設定] > [マクロの設定]に移動し、「すべてのマクロを有効にする」を選択してください。この設定により、VBAスクリプトは制限なく実行されます。