Per rimuovere tutte le sottocartelle vuote di una determinata cartella di Outlook, eseguire le operazioni seguenti:

1. stampa altro + F11 tasti per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla sotto il codice VBA nella nuova finestra del modulo.

VBA: elimina tutte le sottocartelle vuote di determinate cartelle di Outlook in blocco

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 'Declare sub folder objects
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 the folder is empty check for subfolders
If xFldr.Folders.Count < 1 Then 'If the folder contains not sub folders confirm deletion
xFldr.Delete 'Delete the folder
xFlag = True
xCount = xCount + 1
Else 'Folder contains sub folders so confirm deletion
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else 'Folder contains items or (subfolders that may be empty).
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub

3. stampa F5 Chiave o Correre pulsante per eseguire questo codice VBA.

4. Nella finestra di dialogo Seleziona cartella che si apre, selezionare la cartella specifica le cui sottocartelle vuote verranno eliminate in blocco e fare clic su OK pulsante. Vedi screenshot:

5. Ora viene visualizzata una finestra di dialogo Kutools per Outlook che mostra quante sottocartelle vuote sono state eliminate. Clicca il OK pulsante per chiuderlo.

Fino ad ora, tutte le sottocartelle della cartella di Outlook specificata sono già state eliminate in blocco.