如何在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資料夾的所有子資料夾都已成功批量刪除。