Cum să obțineți rapid numărul total de subfoldere dintr-un anumit folder în Outlook

Poate ați creat un număr mare de subdosare într-un anumit folder, cum ar fi Inbox, în Outlook. În acest caz, dacă doriți să numărați subfolderele, trebuie să fiți reticent în a număra manual. Aici vă vom împărtăși într-un mod mult mai inteligent.

Pentru a clasifica și arhiva mai bine elementele în Outlook, mulți utilizatori sunt obișnuiți să creeze diverse foldere și subfoldere. Cu toate acestea, după aceea, ei pot crede că este puțin dificil să gestioneze prea multe foldere. În acest caz, ar putea dori să numere câte subdosare există sub un anumit folder. Fără îndoială, este stupid și plictisitor să numeri manual. Prin urmare, în cele ce urmează, vom arăta un mijloc mult mai inteligent.

Obțineți numărul total de subdosare dintr-un anumit folder

1. De la bun început, start programul dvs. Outlook.
2. Apoi, în fereastra Outlook, puteți apăsa butoanele tastei „Alt + F11” pentru a accesa editorul VBA.
3. Apoi, în fereastra pop-up ulterioară, trebuie să deschideți un modul care nu este utilizat.
4. Ulterior, copiați și inserați următorul cod VBA în acest 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. După aceea, puteți ieși din fereastra curentă.
6. Mai târziu, accesați „Fișier” > „Opțiuni” > „Bară de instrumente cu acces rapid”. Acolo puteți adăuga noua macrocomandă la Bara de instrumente Acces rapid.
7. În cele din urmă, puteți încerca această macrocomandă.

• În primul rând, selectați un dosar ale cărui subdosare doriți să le numărați.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Imediat, Outlook va rula această macrocomandă.
• După terminarea macrocomenzii, veți primi un mesaj, precum următoarea imagine:

Trucuri pentru a face față corupției Outlook

Outlook este extrem de vulnerabil la o mulțime de factori, inclusiv viruși, probleme de software sau hardware, întrerupere de curent și așa mai departe. Nimeni nu poate garanta că își poate păstra fișierul Outlook departe de corupție. Prin urmare, este esențial să stăpânești câteva trucuri pentru a face față daunelor. În primul rând, trebuie să faceți backup PST regulat. În plus, ar trebui să știi cum să folosești Scanpst, instrumentul de reparare încorporat. Nu în ultimul rând, ar trebui să pregătiți un instrument extern mai robust, cum ar fi DataNumen Outlook repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com