Belirli bir e-posta hesabı veya Outlook'taki tüm posta kutuları altında klasör sayısını nasıl sayabilirsiniz?

Bu makale, Outlook'ta belirli bir e-posta hesabı veya tüm posta kutuları altındaki klasör sayısını sayma hakkında konuşuyor.

VBA kodu ile belirli bir e-posta hesabı veya tüm posta kutuları altındaki klasör sayısını sayın

"VBA kodu ile belirli bir e-posta hesabı veya tüm posta kutuları altındaki klasör sayısını sayma"

Aşağıdaki VBA kodunu kullanarak belirli bir e-posta hesabı veya tüm posta kutuları altındaki klasör sayısını sayabilirsiniz. Lütfen aşağıdaki adımları izleyin.

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

2. "Microsoft Visual Basic for Applications" penceresinde, "Ekle" > "Kullanıcı Formu" seçeneğine tıklayın. Ekran görüntüsüne bakın:

3. Ardından "UserForm1" içine iki "Seçenek Butonu" ve iki "Komut Butonu" ekleyin ve butonların görüntülenen metnini aşağıdaki ekran görüntüsünde gösterildiği gibi değiştirin.

4. İlk seçenek butonunun adını “opbCurAccount” olarak değiştirin ve "değer" özelliğini "True" olarak ayarlayın. Ekran görüntüsüne bakın:

5. İkinci seçenek butonunun adını "opbAllAccounts" olarak değiştirmeye devam edin. Ve ardından iki komut butonunun adını sırasıyla "cdbOk” ve ”cdbCancel" olarak belirleyin.

6. UserForm1'in herhangi bir boş alanına çift tıklayın ve ardından Userform1 (Kod) penceresinde orijinal kodu aşağıdaki VBA kodu ile değiştirin.

VBA kodu: Outlook'ta klasör sayısını sayma

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. Kodu çalıştırmak için "F5" tuşuna basın. Ardından bir "UserForm1" iletişim kutusu açılır, mevcut hesaptaki klasör sayısını saymak için lütfen "Mevcut Hesap" seçeneğini seçin ve "Tamam" butonuna tıklayın. Tüm posta kutularındaki klasör sayısını saymak için "Tüm Hesaplar" seçeneğini seçin ve ardından "Tamam" butonuna tıklayın. Ekran görüntüsüne bakın:

9. Ardından size mevcut hesap veya tüm posta kutularında kaç tane klasör olduğunu bildiren bir "Kutools for Outlook" iletişim kutusu açılır. Aşağıdaki ekran görüntüsüne bakın. Lütfen "Tamam" butonuna tıklayın.

Not: Konuşma Eylem Ayarları klasörü ve Hızlı Adım Ayarları klasörü gibi tüm gizli klasörler, klasör sayımına dahil edilir.

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

• Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
• Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
• Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
• Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
• Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
• Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

• Akıllı e-posta yanıtları
• Optimize edilmiş içerik
• Anahtar kelimeye dayalı taslaklar
• Akıllı içerik genişletme
• E-posta özetleme
• Çok dilli çeviri

En önemlisi, bu özellik sonsuza kadar tamamen ücretsiz! Boşuna beklemeyin—şimdi AI Mail Asistanını indirin ve keyfini çıkarın

İlgili makaleler:

• Outlook'ta bir klasör seçmek için "Klasör Gözat" iletişim kutusunu nasıl görüntülersiniz?