如何从Outlook中打开所有子文件夹？

Author: Xiaoyang Last Modified: 2025-07-31

如果在您的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中所有帐户的所有子文件夹都将被展开，参见截图：