Como excluir todos os pastas vazias em lote no Outlook?

Para remover todas as subpastas vazias de uma determinada pasta do Outlook, siga os passos abaixo:

1. Pressione as teclas "Alt" + "F11" para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em "Inserir" > "Módulo", e cole o seguinte código VBA na nova janela de módulo.

VBA: Excluir todas as subpastas vazias de uma determinada pasta do Outlook em massa

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. Pressione "F5" ou clique no botão "Executar" para executar este código VBA.

4. Na caixa de diálogo Selecionar Pasta que aparece, selecione a pasta específica cujas subpastas vazias você deseja excluir em massa e clique no botão "OK".

5. Agora, uma caixa de diálogo Kutools para Outlook aparecerá, mostrando quantas subpastas vazias foram excluídas. Clique no botão "OK" para fechá-la.

Até agora, todas as subpastas da pasta especificada do Outlook foram excluídas em massa com sucesso.