如何從Outlook中打開所有子文件夾？

Author: Xiaoyang Last Modified: 2025-08-06

如果您在Outlook文件夾下創建了多個子文件夾，該如何立即打開或展開所有這些子文件夾呢？本文將為您介紹一個實用的VBA代碼來解決這個問題。

使用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中所有帳戶的所有子文件夾都已展開，請參見截圖：