¿Cómo eliminar todos los carpetas vacías en Outlook de forma masiva?

Para eliminar todas las subcarpetas vacías de una carpeta específica de Outlook, siga los siguientes pasos:

1. Presione las teclas "Alt" + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en "Insertar" > "Módulo", y pegue el siguiente código VBA en la nueva ventana de módulo.

VBA: Eliminar todas las subcarpetas vacías de una carpeta específica de Outlook en bloque

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. Presione "F5" o haga clic en el botón "Ejecutar" para ejecutar este código VBA.

4. En el cuadro de diálogo Seleccionar Carpeta que aparece, seleccione la carpeta específica cuyas subcarpetas vacías desea eliminar en bloque, y haga clic en el botón "Aceptar".

5. Ahora aparecerá un cuadro de diálogo de Kutools para Outlook, mostrando cuántas subcarpetas vacías se han eliminado. Haga clic en el botón "Aceptar" para cerrarlo.

Hasta ahora, todas las subcarpetas de la carpeta especificada de Outlook se han eliminado correctamente en bloque.