如何在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文件夹的所有子文件夹已成功批量删除。