Kuinka poistaa kaikki tyhjät kansiot erässä Outlookissa?

Voit poistaa tietyn Outlook-kansion kaikki tyhjät alikansiot seuraavasti:

1. Paina "Alt" + "F11"-näppäimiä avataksesi Microsoft Visual Basic for Applications -ikkunan.

2. Napsauta "Lisää" > "Moduuli" ja liitä seuraava VBA-koodi uuteen moduuliikkunaan.

VBA: Poista tietyn Outlook-kansion kaikki tyhjät alikansiot kerralla

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. Paina "F5" tai napsauta "Suorita"-painiketta suorittaaksesi tämän VBA-koodin.

4. Valitse avautuvasta Select Folder -valintaikkunasta kansio, jonka tyhjät alikansiot poistat joukkona, ja napsauta "OK"-painiketta.

5. Nyt näkyviin tulee Kutools for Outlook -valintaikkuna, joka näyttää kuinka monta tyhjää alikansiota on poistettu. Napsauta "OK" -painiketta sulkeaksesi sen.

Tähän asti kaikki määritetyn Outlook-kansion alikansiot on poistettu joukkona onnistuneesti.