Como eliminar em lote todas as pastas vazias no Outlook?

Para remover todas as subpastas vazias de uma determinada pasta do Outlook, proceda da seguinte forma:

1. Prima as teclas «Alt» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole o seguinte código VBA na nova janela do módulo.

VBA: Eliminar em massa todas as subpastas vazias de uma determinada pasta do 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. Prima "F5" ou clique no botão «Executar» para rodar este código VBA.

4. Na caixa de diálogo «Selecionar Pasta» que surge, selecione a pasta específica cujas subpastas vazias pretende eliminar em massa e clique em «OK».

 

5. Agora, irá aparecer uma caixa de diálogo do Kutools para Outlook a indicar quantas subpastas vazias foram eliminadas. Clique no botão «OK» para fechá-la.

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