如何從 Outlook 開啟所有子資料夾？

如果您在 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 所有帳戶中的全部子資料夾，如下圖所示：