Outlook VBA vasitəsilə bir qovluqdakı və bütün alt qovluqlarındakı elementlərin ümumi sayını necə tez əldə etmək olar

Müəyyən bir qovluğun altında çoxlu alt qovluqlarınız varsa və indi bu qovluqdakı elementləri və onun bütün alt qovluqlarını saymaq istəyirsinizsə, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz.

Ümumiyyətlə, bir qovluqdakı elementlərin ümumi sayını yoxlamaq üçün iki yolunuz var. Bunlardan biri bu qovluğu seçməkdir və sonra status çubuğunun aşağı sol küncündə elementlərin sayına baxa bilərsiniz. Digəri, elementlərin ümumi sayını göstərəcək şəkildə qurmaq üçün qovluq xüsusiyyətlərini dəyişdirməkdir. Bununla belə, bu qovluğun altında bir neçə alt qovluq varsa, yuxarıdakı hər iki vasitə alt qovluqları saymağa daxil edə bilməz. Buna görə də, əgər siz qovluqdakı və onun bütün alt qovluqlarındakı elementlərin ümumi sayını əldə etmək istəyirsinizsə, aşağıdakı kimi başqa vasitələr axtarmalısınız. Belə bir ümumi saya tez nail olmaq üçün VBA kodundan istifadə edir. Zəhmət olmasa onun ətraflı addımlarını və VBA kodlarını əldə etmək üçün oxuyun.

Qovluqda və onun bütün alt qovluqlarında olan elementlərin ümumi sayını əldə edin

1. Ən başında, Outlook proqramınızı həmişəki kimi başlada bilərsiniz.
2. Sonra Outlook VBA redaktorunu göstərmək üçün "Alt + F11" düymələrini basın.
3. Sonra boş bir modul aça bilərsiniz.
4. Sonradan aşağıdakı VBA kodlarını kopyalayıb bu modula yapışdırın.

Sub CountItems()
    Dim objMainFolder As Outlook.Folder
    Dim lItemsCount As Long
 
    'Select a folder
    Set objMainFolder = Outlook.Application.Session.PickFolder
 
    If objMainFolder Is Nothing Then
       MsgBox "You choose select a valid folder!", vbExclamation + vbOKOnly, "Warning for Pick Folder"
    Else
       'Initialize the total count
       lItemsCount = 0
       Call LoopFolders(objMainFolder, lItemsCount)
    End If
 
    'Display a message for the total count
    MsgBox "There are " & lItemsCount & " items in the " & objMainFolder.Name & " folder Including its subfolders.", vbInformation, "Count Items"
End Sub

Sub LoopFolders(ByVal objCurrentFolder As Outlook.Folder, lCurrentItemsCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    lCurrentItemsCount = lCurrentItemsCount + objCurrentFolder.Items.Count
 
    'Process all folders and subfolders recursively
    If objCurrentFolder.Folders.Count Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call LoopFolders(objSubfolder, lCurrentItemsCount)
       Next
    End If
End Sub

5. Bundan sonra, Outlook makro təhlükəsizlik səviyyənizi aşağı səviyyəyə dəyişməlisiniz.
6. Nəhayət, bir cəhd edə bilərsiniz.

• Yeni makro pəncərəsində F5 düyməsini sıxın.
• Bir anda sizdən qovluq seçmək tələb olunacaq.
• Dərhal, seçilmiş qovluqdakı və onun bütün alt qovluqlarındakı elementlərin ümumi sayını tələb edən yeni bir mesaj alacaqsınız, məsələn, aşağıdakı şəkildəki kimi:

Köhnə əşyaları vaxtında arxivləşdirin

PST faylınızdakı köhnə elementləri mümkün qədər tez arxivləşdirmək həmişə tövsiyə olunur. Əks halda, bu faylda getdikcə daha çox element toplansa, o, səhvlərə və pozulmalara meylli olacaq. PST faylınız oğurlandıqdan sonra onu geri qaytarmaq üçün çox səy sərf edəcəksiniz korlanmış Outlook data. Təcrübəli bir alətə təkrar müraciət etməsəniz, bu olduqca çətin olacaq DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc satqın SQL Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com