如何在 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 帐户下的子文件夹将全部展开，如下图所示：