Kako brzo dobiti ukupan broj podmapa u određenoj mapi u programu Outlook

Možda ste stvorili velik broj podmapa u određenoj mapi, kao što je Inbox, u vašem Outlooku. U ovom slučaju, ako želite brojati podmape, sigurno ne želite ručno brojati. Ovdje ćemo s vama podijeliti daleko pametniji način.

Kako bi bolje klasificirali i arhivirali stavke u programu Outlook, mnogi su korisnici navikli stvarati razne mape i podmape. Ipak, poslije će možda pomisliti da je pomalo teško upravljati s previše mapa. U ovom slučaju, možda će htjeti prebrojati koliko se podmapa nalazi u određenoj mapi. Bez ikakve sumnje, glupo je i zamorno brojati ručno. Stoga ćemo u nastavku pokazati mnogo inteligentnije sredstvo.

Dobijte ukupan broj podmapa u određenoj mapi

1. Na samom početku start vaš program Outlook.
2. Zatim, u prozoru programa Outlook, možete pritisnuti tipke "Alt + F11" za pristup VBA editoru.
3. Zatim, u naknadnom skočnom prozoru, trebate otvoriti modul koji se ne koristi.
4. Nakon toga kopirajte i zalijepite sljedeći VBA kod u ovaj 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. Nakon toga možete izaći iz trenutnog prozora.
6. Kasnije idite na “Datoteka” > “Opcije” > “Alatna traka za brzi pristup”. Tamo možete dodati novu makronaredbu na alatnu traku za brzi pristup.
7. Konačno, možete isprobati ovaj makro.

• Najprije odaberite mapu čije podmape želite prebrojati.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
• Outlook će odmah pokrenuti ovu makronaredbu.
• Nakon što makro završi, dobit ćete poruku, poput sljedeće slike:

Trikovi za suočavanje s oštećenjem Outlooka

Outlook je izuzetno osjetljiv na mnoštvo čimbenika, uključujući viruse, probleme sa softverom ili hardverom, nestanak struje i tako dalje. Nitko ne može jamčiti da će svoju Outlook datoteku sačuvati daleko od oštećenja. Stoga je bitno svladati neke trikove za suočavanje s oštećenjima. Prvo, morate napraviti redovnu PST sigurnosnu kopiju. Osim toga, trebali biste znati kako ga koristiti scanpst, ugrađeni alat za popravak. Na kraju, ali ne manje važno, trebali biste pripremiti robusniji vanjski alat, kao što je DataNumen Outlook repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com