Kako brzo dobiti ukupan broj podmapa u određenoj fascikli u Outlooku

Možda ste kreirali veliki broj podfoldera u određenoj fascikli, kao što je Inbox, u svom Outlooku. U ovom slučaju, ako želite da prebrojite podmape, morate se oklevati ručnog brojanja. Ovdje ćemo vam podijeliti daleko pametniji način.

Da bi bolje klasifikovali i arhivirali stavke u Outlooku, mnogi korisnici su navikli da kreiraju različite fascikle i podmape. Ipak, kasnije će možda pomisliti da je malo teško upravljati previše foldera. U ovom slučaju, možda će želeti da izbroje koliko podfoldera ima u određenoj fascikli. Bez ikakve sumnje, glupo je i zamorno brojati ručno. Stoga ćemo u nastavku pokazati mnogo inteligentnije sredstvo.

Dobijte ukupan broj podfoldera u određenoj fascikli

1. Na samom početku, start vaš Outlook program.
2. Zatim, u prozoru programa Outlook, možete pritisnuti tipke “Alt + F11” za pristup VBA editoru.
3. Zatim, u naknadnom iskačućem prozoru, morate 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 “File” > “Options” > “Quick Access Toolbar”. Tamo možete dodati novi makro na alatnu traku za brzi pristup.
7. Konačno, možete isprobati ovaj makro.

• Prvo odaberite fasciklu čije podfoldere želite da brojite.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Outlook će odmah pokrenuti ovaj makro.
• Nakon što se makro završi, dobićete poruku, kao na sljedećoj slici:

Trikovi u borbi protiv korupcije u Outlooku

Outlook je vrlo ranjiv na mnoge faktore, uključujući viruse, probleme sa softverom ili hardverom, nestanak struje i tako dalje. Niko ne može garantovati da je u stanju da sačuva svoju Outlook datoteku daleko od oštećenja. Stoga je bitno savladati neke trikove kako se nositi s oštećenjem. Prvo, morate napraviti redovnu PST sigurnosnu kopiju. Osim toga, trebali biste znati kako se koristiti scanpst, ugrađeni alat za popravku. Na kraju, ali ne i najmanje važno, trebali biste pripremiti robusniji vanjski alat, kao što je npr DataNumen Outlook repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com