Kako brzo dobiti ukupan broj stavki u mapi i svim njenim podmapama putem Outlook VBA

Ako imate više podfoldera u određenoj fascikli i sada želite da prebrojite stavke u ovoj fascikli i svim njenim podfolderima, možete koristiti način predstavljen u ovom članku.

Općenito, da biste provjerili ukupan broj stavki u jednoj mapi, imate dva načina. Jedan je da odaberete ovu fasciklu i onda možete videti broj stavki u donjem levom uglu statusne trake. Drugi je da promijenite svojstva foldera kako biste ga postavili da prikazuje ukupan broj stavki. Međutim, ako postoji nekoliko podfoldera u ovoj fascikli, oba gornja sredstva ne mogu uključiti podmape u brojanje. Stoga, ako želite da dobijete ukupan broj stavki u fascikli i svim njenim podmapama, morate potražiti druge načine, kao što je sledeći. Koristi VBA kod za brzo postizanje takvog ukupnog broja. Pročitajte dalje da biste dobili detaljne korake i VBA kodove.

Dobijte ukupan broj stavki u fascikli i svim njenim podmapama

1. Na samom početku možete pokrenuti Outlook program kao i obično.
2. Zatim pritisnite tipke “Alt + F11” da biste prikazali Outlook VBA editor.
3. Zatim možete otvoriti prazan modul.
4. Nakon toga, kopirajte i zalijepite sljedeće VBA kodove u ovaj modul.

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. Nakon toga, trebali biste promijeniti nivo sigurnosti Outlook makroa na niski.
6. Konačno možete probati.

• U novom prozoru makroa pritisnite dugme F5.
• Od vas će se tražiti da odmah odaberete folder.
• Odmah ćete dobiti novu poruku sa upitom o ukupnom broju stavki u odabranom folderu i svim njegovim podfolderima, kao na slici ispod:

Arhivirajte stare predmete u vremenu

Uvijek se preporučuje da arhivirate stare stavke u vašoj PST datoteci što je prije moguće. U suprotnom, sa sve više i više stavki koje se nakupljaju u ovoj datoteci, ona će biti sklona greškama i oštećenjima. Jednom kada vaš PST fajl bude kompromitovan, uložićete mnogo napora da ga vratite oštećeni Outlook podaci. Biće prilično teško osim ako se ne vratite na iskusan alat kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući korumpiran SQL Server i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com