Outlook을 시작할 때 모든 폴더를 자동으로 확장하려면 어떻게 해야 하나요?

Author: Kelly Last Modified: 2025-08-06

일반적으로 Outlook의 탐색 창에서 폴더를 확장하거나 축소한 후 프로그램을 닫으면, Outlook을 다시 열었을 때 해당 폴더는 이전의 확장 또는 축소 상태를 유지합니다. 하지만 매번 Outlook을 시작할 때마다 모든 폴더가 자동으로 확장되기를 원한다면 어떻게 해야 할까요? 이 문서에서는 이를 구현하기 위한 VBA 솔루션을 제공합니다.

VBA를 사용하여 Outlook 시작 시 모든 폴더 자동 확장하기

VBA를 사용하여 Outlook 시작 시 모든 폴더 자동 확장하기

이 가이드에서는 Outlook을 실행할 때마다 탐색 창의 모든 폴더를 자동으로 확장하는 VBA 스크립트를 사용하는 방법을 보여줍니다. 다음 단계에 따라 VBA 스크립트를 적용하세요:

Microsoft Visual Basic for Applications 창을 열기 위해 Alt + F11 키를 동시에 누릅니다.

다음 항목을 확장합니다: 프로젝트 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 스크립트가 제한 없이 실행되도록 합니다.