Jak rychle získat celkový počet položek ve složce a všech jejích podsložkách pomocí aplikace Outlook VBA

Pokud máte v určité složce více podsložek a nyní chcete spočítat položky v této složce a ve všech jejích podsložkách, můžete použít způsob uvedený v tomto článku.

Obecně lze zkontrolovat celkový počet položek v jedné složce dvěma způsoby. Jedním z nich je výběr této složky a poté můžete zobrazit počet položek v levém dolním rohu stavového řádku. Druhou možností je změnit vlastnosti složky a nastavit ji tak, aby zobrazovala celkový počet položek. Pokud však v této složce existuje několik podsložek, oba výše uvedené prostředky nejsou schopny zahrnout podsložky do počítání. Pokud tedy chcete získat celkový počet položek ve složce a všech jejích podsložkách, musíte hledat jiné prostředky, například následující. Využívá kód VBA k rychlému dosažení takového celkového počtu. Čtěte dále a získejte jeho propracované kroky a kódy VBA.

Získejte celkový počet položek ve složce a všech jejích podsložkách

1. Hned na začátku můžete starVáš Outlook program jako obvykle.
2. Poté stisknutím kláves „Alt + F11“ zobrazte editor aplikace Outlook VBA.
3. Dále můžete otevřít prázdný modul.
4. Následně zkopírujte a vložte následující kódy VBA do tohoto modulu.

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. Poté byste měli změnit úroveň zabezpečení maker aplikace Outlook na nízkou.
6. Nakonec to můžete vyzkoušet.

• V novém okně makra stiskněte klávesové tlačítko F5.
• Najednou budete vyzváni k výběru složky.
• Okamžitě obdržíte novou zprávu s výzvou k celkovému počtu položek ve vybrané složce a všech jejích podsložkách, jako na obrázku níže:

Archivujte staré položky v čase

Vždy se doporučuje archivovat staré položky v souboru PST co nejdříve. V opačném případě, kdy se v tomto souboru hromadí více a více položek, bude náchylný k chybám a poškozením. Jakmile bude váš soubor PST kompromitován, vynaložíte spoustu úsilí na získání zpět poškozený Outlook data. Bude to docela obtížné, pokud se neobnovíte se zkušeným nástrojem, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkažený SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com