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 aşağıdaki 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" seçeneğine tıklayıp 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 ya da "Çalıştır" düğmesine tıklayın.

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

 

5. Şimdi Kutools for Outlook iletişim kutusu görüntülenerek kaç boş alt klasörün silindiği gösterilecektir. Kapatmak için "Tamam" düğmesine tıklayın.

Şu ana kadar belirtilen Outlook klasörünün tüm alt klasörleri başarıyla toplu olarak silindi.