Kaip greitai gauti bendrą poaplankių skaičių konkrečiame „Outlook“ aplanke

Galbūt „Outlook“ tam tikrame aplanke, pvz., „Inbox“, sukūrėte daug poaplankių. Tokiu atveju, jei norite skaičiuoti poaplankius, turite nenorėti skaičiuoti rankiniu būdu. Čia mes pasidalinsime su jumis daug protingesniu būdu.

Norėdami geriau klasifikuoti ir archyvuoti elementus programoje "Outlook", daugelis vartotojų yra įpratę kurti įvairius aplankus ir poaplankius. Tačiau vėliau jie gali manyti, kad sunku valdyti per daug aplankų. Tokiu atveju jie gali norėti suskaičiuoti, kiek poaplankių yra konkrečiame aplanke. Be jokių abejonių, skaičiuoti rankiniu būdu yra kvaila ir nuobodu. Todėl toliau parodysime daug protingesnes priemones.

Gaukite bendrą poaplankių skaičių konkrečiame aplanke

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada „Outlook“ lange galite paspausti „Alt + F11“ klavišų mygtukus, kad pasiektumėte VBA redaktorių.
3. Tada vėlesniame iššokančiame lange turite atidaryti nenaudojamą modulį.
4. Tada nukopijuokite ir įklijuokite šį VBA kodą į šį modulį.

Sub CountSubfoldersUnderRootFolder()
    Dim objRootFolder As Folder
    Dim lFolderCount As Long
    Dim objFolder As Object
 
    'Get the current folder
    Set objRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    'If you want to select, use the following line instead
    'Set objRootFolder = Outlook.Application.Session.PickFolder
 
    If objRootFolder.Folders.count > 0 Then
       For Each objFolder In objRootFolder.Folders
           'Exclude the hidden folders under Inbox
           If objFolder.Name <> "Conversation Action Settings" And objFolder.Name <> "Quick Step Settings" Then
              lFolderCount = lFolderCount + 1
 
              'Process subfolders recursively
              Call ProcessFolders(objFolder, lFolderCount)
           End If
       Next
       MsgBox lFolderCount & " subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    Else
       MsgBox "No subfolders under " & Chr(34) & objRootFolder.Name & Chr(34) & ".", vbInformation
    End If
End Sub
 
Sub ProcessFolders(objCurrentFolder As Object, lCount As Long)
    Dim objSubfolder As Object
 
    lCount = lCount + objCurrentFolder.Folders.count
 
    For Each objSubfolder In objCurrentFolder.Folders
        Call ProcessFolders(objSubfolder, lCount)
    Next
End Sub

5. Po to galite išeiti iš esamo lango.
6. Vėliau eikite į „Failas“ > „Parinktys“ > „Greitos prieigos įrankių juosta“. Čia galite pridėti naują makrokomandą prie greitosios prieigos įrankių juostos.
7. Galiausiai galite išbandyti šią makrokomandą.

• Pirmiausia pasirinkite aplanką, kurio poaplankius norite skaičiuoti.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Iš karto „Outlook“ paleis šią makrokomandą.
• Baigę makrokomandą gausite pranešimą, pavyzdžiui, šį paveikslėlį:

Triukai, kaip susidoroti su „Outlook“ korupcija

„Outlook“ yra pažeidžiama daugelio veiksnių, įskaitant virusus, programinės ar aparatinės įrangos problemas, elektros energijos tiekimo nutraukimą ir pan. Niekas negali garantuoti, kad savo „Outlook“ failą galės apsaugoti nuo sugadinimo. Todėl labai svarbu įvaldyti keletą gudrybių, kaip susidoroti su žala. Pirma, jūs turite padaryti įprastą PST atsarginę kopiją. Be to, jūs turite žinoti, kaip naudoti scanpst, įmontuotas remonto įrankis. Paskutinis, bet ne mažiau svarbus dalykas, turėtumėte paruošti tvirtesnį išorinį įrankį, pvz DataNumen Outlook repair.

Autoriaus įvadas:

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