Outlook’ta belirli bir klasörün altındaki alt klasör sayısını nasıl hesaplarsınız?

Bir kök klasörün altında bazı klasörler oluşturduğunuzu varsayalım. Şimdi bu kök klasörün altında kaç tane alt klasör olduğunu öğrenmek istiyorsunuz; bunu nasıl yapabilirsiniz? Kök klasörü genişletip alt klasörleri tek tek elle mi sayacaksınız? Bu makale, bunu gerçekleştirmeniz için size kolay bir yöntem tanıtacaktır.

VBA koduyla alt klasör sayısını sayma

---

VBA koduyla alt klasör sayısını sayma

Aşağıdaki VBA kodu, Outlook’ta belirli bir kök klasörün altındaki alt klasör sayısını kolayca saymanıza olanak tanır. Lütfen aşağıdaki adımları uygulayın.

1. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül öğesine tıklayın. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Outlook'ta belirli bir klasörün altındaki alt klasör sayısını sayma

Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
    MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
For Each xFolder In xRootFolder.Folders
    If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
        xFolderCount = xFolderCount + 1
        Call ProcessFolders(xFolder, xFolderCount)
    End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
    Call ProcessFolders(xSubFolder, Num)
Next
End Sub

3. F5 tuşuna basarak kodu çalıştırın.

4. Açılan Klasör Seç iletişim kutusunda, alt klasörlerini saymak istediğiniz klasörü seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

5. Ardından, belirtilen klasörde kaç adet alt klasör olduğunu gösteren bir Kutools for Outlook iletişim kutusu açılır. Ekran görüntüsüne bakın:

---

İlgili makaleler:

• Outlook’ta belirtilen e-posta hesabının veya tüm posta kutularının altındaki klasör sayısını nasıl sayarsınız?
• Outlook’ta birden fazla hesabın gelen kutularını birleştirip tüm e-postalarınızı tek bir yerden nasıl görüntülersiniz?
• Outlook’ta klasör seçmek için “Klasör Seç” iletişim kutusunu nasıl görüntülersiniz?
• Outlook’ta yanlışlıkla taşınan eksik klasörü nasıl bulursunuz?