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