Kaip greitai gauti bendrą elementų skaičių aplanke ir visuose jo poaplankiuose naudojant „Outlook VBA“

Jei tam tikrame aplanke turite kelis poaplankius ir dabar norite suskaičiuoti elementus šiame aplanke ir visuose jo poaplankiuose, galite naudoti šiame straipsnyje aprašytą būdą.

Apskritai, norėdami patikrinti bendrą elementų skaičių viename aplanke, turite du būdus. Vienas iš jų yra pasirinkti šį aplanką, tada apatiniame kairiajame būsenos juostos kampe galite peržiūrėti elementų skaičių. Kitas yra pakeisti aplanko ypatybes, kad būtų rodomas bendras elementų skaičius. Tačiau jei šiame aplanke yra keli poaplankiai, abi pirmiau nurodytos priemonės negali įtraukti poaplankių į skaičiavimą. Todėl, jei norite gauti bendrą elementų skaičių aplanke ir visuose jo poaplankiuose, turite ieškoti kitų priemonių, pvz., toliau pateikto. Jis naudoja VBA kodą, kad greitai pasiektų tokį bendrą skaičių. Skaitykite toliau, kad gautumėte išsamius veiksmus ir VBA kodus.

Gaukite bendrą aplanke ir visuose jo poaplankiuose esančių elementų skaičių

1. Pačioje pradžioje galite paleisti „Outlook“ programą kaip įprasta.
2. Tada paspauskite „Alt + F11“ klavišų mygtukus, kad būtų rodomas „Outlook VBA“ redaktorius.
3. Tada galite atidaryti tuščią modulį.
4. Tada nukopijuokite ir įklijuokite šiuos VBA kodus į šį 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. Po to turėtumėte pakeisti „Outlook“ makrokomandos saugos lygį į žemą.
6. Pagaliau galite pabandyti.

• Naujame makrokomandos lange paspauskite klavišo F5 mygtuką.
• Iš karto turėsite pasirinkti aplanką.
• Iš karto gausite naują pranešimą, kuriame bus nurodytas bendras elementų skaičius pasirinktame aplanke ir visuose jo poaplankiuose, kaip parodyta paveikslėlyje žemiau:

Archyvuokite senus daiktus laiku

Visada siūloma kuo greičiau archyvuoti senus PST failo elementus. Priešingu atveju, kai šiame faile kaupiasi vis daugiau elementų, jis bus linkęs į klaidas ir pažeidimus. Kai jūsų PST failas bus pažeistas, turėsite įdėti daug pastangų, kad jį grąžintumėte sugadintas Outlook duomenis. Tai bus gana sunku, nebent vėl naudositės patyrusiu įrankiu, pavyzdžiui DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas SQL Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com