Kako hitro pridobiti skupno število elementov v mapi in vseh njenih podmapah prek programa Outlook VBA

Če imate v določeni mapi več podmap in želite zdaj šteti elemente v tej mapi in vseh njenih podmapah, lahko uporabite način, predstavljen v tem članku.

Na splošno lahko preverite skupno število elementov v eni mapi na dva načina. Ena je, da izberete to mapo, nato pa si lahko ogledate število elementov v spodnjem levem kotu vrstice stanja. Drugi je spremeniti lastnosti mape, da bo nastavil skupno število elementov. Če pa je v tej mapi več podmap, obe zgornji sredstvi ne moreta vključiti podmap v štetje. Če želite torej dobiti skupno število elementov v mapi in vseh njenih podmapah, morate poiskati druga sredstva, na primer naslednjo. Za hitro doseganje skupnega števila uporablja kodo VBA. Preberite nadaljevanje, da dobite podrobne korake in kode VBA.

Pridobite skupno število elementov v mapi in vseh njenih podmapah

1. Na samem začetku lahko zaženete program Outlook kot običajno.
2. Nato pritisnite tipki “Alt + F11”, da prikažete urejevalnik Outlook VBA.
3. Nato lahko odprete prazen modul.
4. Nato v ta modul kopirajte in prilepite naslednje kode VBA.

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. Po tem bi morali spremeniti raven varnosti makra v Outlooku na nizko.
6. Končno lahko poskusite.

• V novem oknu makra pritisnite tipko F5.
• Takoj boste morali izbrati mapo.
• Takoj boste prejeli novo sporočilo s pozivom k skupnemu številu elementov v izbrani mapi in vseh njenih podmapah, kot je spodnja slika:

Arhivirajte stare predmete v času

Vedno je priporočljivo, da stare elemente v datoteki PST arhivirate čim prej. V nasprotnem primeru se bo v tej datoteki kopičilo vedno več elementov, ki bodo nagnjeni k napakam in poškodbam. Ko bo datoteka PST ogrožena, boste porabili veliko truda za vrnitev datoteke pokvarjen Outlook podatkov. To bo precej težko, če se ne vrnete k izkušenemu orodju, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjena SQL Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com