Outlook'ta tüm boş klasörleri toplu olarak nasıl silebilirim?

Belirli bir Outlook klasörünün tüm boş alt klasörlerini kaldırmak için lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için "Alt" + "F11" tuşlarına basın.

2. "Ekle" > "Modül"'e tıklayın ve aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Belirli bir Outlook klasörünün tüm boş alt klasörlerini toplu olarak silme

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. Bu VBA kodunu çalıştırmak için "F5" tuşuna basın veya "Çalıştır" düğmesine tıklayın.

4. Açılan Klasör Seçin iletişim kutusunda, toplu olarak sileceğiniz boş alt klasörlerin bulunduğu belirli klasörü seçin ve "Tamam" düğmesine tıklayın.

5. Şimdi bir Kutools for Outlook iletişim kutusu açılacak ve kaç tane boş alt klasörün silindiğini gösterecek. Kapatmak için "Tamam" düğmesine tıklayın.

Şimdiye kadar, belirtilen Outlook klasörünün tüm alt klasörleri başarıyla toplu olarak silinmiştir.