Ako rýchlo získať celkový počet podpriečinkov v konkrétnom priečinku v programe Outlook

Možno ste vytvorili istý počet podpriečinkov v určitom priečinku, napríklad Inbox, vo svojom Outlooku. V takom prípade, ak chcete počítať podpriečinky, musíte sa zdráhať počítať ručne. Tu vás zdieľame oveľa inteligentnejším spôsobom.

Mnoho používateľov zvykne na lepšiu klasifikáciu a archiváciu položiek v Outlooku vytvárať rôzne priečinky a podpriečinky. Napriek tomu si potom môžu myslieť, že je príliš ťažké spravovať príliš veľa priečinkov. V takom prípade môžu chcieť spočítať, koľko podpriečinkov sa nachádza v konkrétnom priečinku. Bez akýchkoľvek pochybností je hlúpe a namáhavé počítať ručne. Preto si v nasledujúcich ukážkach ukážeme oveľa inteligentnejšie prostriedky.

Získajte celkový počet podpriečinkov v konkrétnom priečinku

1. Hneď na úvod starváš program Outlook.
2. Potom v okne Outlooku môžete stlačením klávesov „Alt + F11“ vstúpiť do editora VBA.
3. Ďalej v následne vyskakovacom okne musíte otvoriť modul, ktorý sa nepoužíva.
4. Následne skopírujte a prilepte nasledujúci kód VBA do tohto modulu.

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. Potom môžete opustiť aktuálne okno.
6. Neskôr prejdite na „Súbor“> „Možnosti“> „Panel nástrojov Rýchly prístup“. Tam môžete pridať nové makro na panel s nástrojmi Rýchly prístup.
7. Nakoniec môžete vyskúšať toto makro.

• Najskôr vyberte priečinok, ktorého podpriečinky by ste chceli spočítať.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Aplikácia Outlook toto makro okamžite spustí.
• Po dokončení makra dostanete správu, napríklad nasledujúci obrázok:

Triky vyrovnávajúce sa s korupciou v programe Outlook

Program Outlook je veľmi zraniteľný voči mnohým faktorom, vrátane vírusov, problémov so softvérom alebo hardvérom, výpadku napájania atď. Nikto nemôže zaručiť, že sú schopní uchovať svoj súbor Outlook ďaleko od korupcie. Preto je nevyhnutné osvojiť si niektoré triky, ako sa vyrovnať s poškodením. Najskôr musíte vykonať pravidelné zálohovanie PST. Okrem toho by ste mali vedieť, ako využiť Scanpst, vstavaný nástroj na opravu. V neposlednom rade by ste si mali pripraviť robustnejší externý nástroj, ako je napr DataNumen Outlook repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane mdf opraviť a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S