Outlook에서 모든 하위 폴더를 여는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

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의 모든 계정에서 모든 하위 폴더가 확장됩니다. 스크린샷을 참조하세요: