Si të merrni shpejt numrin total të nëndosjeve nën një dosje specifike në Outlook

Ndoshta ju keni krijuar një numër të madh nëndosjesh nën një dosje të caktuar, si p.sh. Inbox, në Outlook tuaj. Në këtë rast, nëse doni të numëroni nëndosjet, duhet të hezitoni të numëroni manualisht. Këtu do t'ju ndajmë një mënyrë shumë më të zgjuar.

Për të klasifikuar dhe arkivuar më mirë artikujt në Outlook, shumë përdorues janë mësuar të krijojnë dosje dhe nënfoldera të ndryshëm. Megjithatë, më pas, ata mund të mendojnë se është paksa e vështirë për të menaxhuar shumë dosje. Në këtë rast, ata mund të dëshirojnë të numërojnë sa nën-dosje ka nën një dosje specifike. Pa asnjë dyshim, është marrëzi dhe e lodhshme të numërosh me dorë. Prandaj, në vijim do të tregojmë një mjet shumë më inteligjent.

Merrni numrin total të nëndesjeve nën një dosje specifike

1. Që në fillim, starnë programin tuaj Outlook.
2. Më pas, në dritaren e Outlook, mund të shtypni butonat "Alt + F11" për të hyrë në redaktuesin VBA.
3. Më pas, në dritaren që shfaqet më pas, duhet të hapni një modul që nuk po përdoret.
4. Më pas, kopjoni dhe ngjisni kodin e mëposhtëm VBA në këtë 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. Pas kësaj, mund të dilni nga dritarja aktuale.
6. Më vonë, shkoni te "Skedari"> "Opsionet"> "Shiriti i veglave të aksesit të shpejtë". Aty mund të shtoni makro të re në shiritin e veglave të aksesit të shpejtë.
7. Më në fund, mund ta provoni këtë makro.

• Fillimisht, zgjidhni një dosje nëndosjet e së cilës dëshironi të numëroni.
• Pastaj, klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
• Menjëherë, Outlook do ta ekzekutojë këtë makro.
• Pasi të përfundojë makro, do të merrni një mesazh, si imazhi i mëposhtëm:

Truket për të përballuar korrupsionin në Outlook

Outlook është flakërues i cenueshëm ndaj shumë faktorëve, duke përfshirë viruset, problemet e softuerit ose harduerit, ndërprerjet e energjisë etj. Askush nuk mund të garantojë se ata janë në gjendje ta mbajnë skedarin e tyre të Outlook larg korrupsionit. Prandaj, është thelbësore të zotëroni disa truke për të përballuar dëmtimin. Së pari, duhet të bëni kopje rezervë të rregullt të PST. Përveç kësaj, ju duhet të dini se si të përdorni scanpst, mjeti i integruar i riparimit. E fundit, por jo më pak e rëndësishme, duhet të përgatisni një mjet të jashtëm më të fortë, si p.sh DataNumen Outlook repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregullim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com