Come eliminare in blocco tutte le cartelle vuote in Outlook?

Per rimuovere tutte le sottocartelle vuote di una determinata cartella di Outlook, procedere come segue:

1. Premere i tasti «Alt» + "F11" per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Fare clic su «Inserisci» > «Modulo» e incollare il seguente codice VBA nella nuova finestra del modulo.

VBA: Elimina in blocco tutte le sottocartelle vuote di una determinata cartella di 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. Premere "F5" o fare clic sul pulsante «Esegui» per avviare il codice VBA.

4. Nella finestra di dialogo «Seleziona cartella» che appare, seleziona la cartella specifica le cui sottocartelle vuote desideri eliminare in blocco e fai clic sul pulsante «OK».

 

5. Verrà visualizzata una finestra di dialogo di Kutools per Outlook che indica il numero di sottocartelle vuote eliminate. Fare clic sul pulsante «OK» per chiuderla.

A questo punto, tutte le sottocartelle della cartella di Outlook specificata sono state eliminate in blocco con successo.