如何在 Outlook 中批量删除所有空文件夹？

要删除某个 Outlook 文件夹下所有空子文件夹，请按以下步骤操作：

1. 按下“Alt”+“F11”组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击“插入”>“模块”，然后将以下 VBA 代码粘贴到新建的模块窗口中。

VBA：批量删除某个 Outlook 文件夹下的所有空子文件夹

Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then
If xFldr.Folders.Count < 1 Then
xFldr.Delete
xFlag = True
xCount = xCount + 1
Else
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub

3. 按下“F5”键或点击“运行”按钮，即可执行此 VBA 代码。

4. 在弹出的“选择文件夹”对话框中，选择需要批量删除空子文件夹的目标文件夹，然后点击“确定”按钮。

 

5. 此时将弹出一个 Kutools for Outlook 对话框，显示已成功删除的空子文件夹数量。点击“确定”即可关闭窗口。

至此，指定的 Outlook 文件夹下所有空子文件夹已成功批量删除。