Slik får du raskt det totale antallet undermapper under en bestemt mappe i Outlook

Kanskje du har opprettet et stort antall undermapper under en bestemt mappe, for eksempel innboks, i Outlook. I dette tilfellet, hvis du ønsker å telle undermappene, må du være tilbakeholden med å telle manuelt. Her vil vi dele deg på en langt smartere måte.

For bedre å klassifisere og arkivere elementer i Outlook, er mange brukere vant til å lage ulike mapper og undermapper. Likevel, etterpå, kan de synes det er litt vanskelig å administrere for mange mapper. I dette tilfellet vil de kanskje telle hvor mange undermapper det er under en bestemt mappe. Uten tvil er det dumt og kjedelig å telle manuelt. Derfor vil vi i det følgende vise et mye mer intelligent middel.

Få det totale antallet undermapper under en bestemt mappe

1. Helt i begynnelsen, start Outlook-programmet ditt.
2. Deretter, i Outlook-vinduet, kan du trykke på "Alt + F11"-tasteknappene for å få tilgang til VBA-editor.
3. Deretter, i det påfølgende popup-vinduet, må du åpne en modul som ikke brukes.
4. Deretter kopierer og limer du inn følgende VBA-kode i denne modulen.

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. Etter det kan du gå ut av det gjeldende vinduet.
6. Gå senere til "Fil"> "Alternativer"> "Hurtigtilgangsverktøylinje". Der kan du legge til den nye makroen til Quick Access Toolbar.
7. Til slutt kan du prøve denne makroen.

• Først velger du en mappe hvis undermapper du vil telle.
• Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
• Umiddelbart vil Outlook kjøre denne makroen.
• Etter at makroen er ferdig, vil du få en melding, som følgende bilde:

Triks for å takle Outlook-korrupsjon

Outlook er ekstremt sårbart for en rekke faktorer, inkludert virus, programvare- eller maskinvareproblemer, strømbrudd og så videre. Ingen kan garantere at de er i stand til å holde Outlook-filen langt unna korrupsjon. Derfor er det viktig å mestre noen triks for å takle skader. For det første må du lage vanlig PST-sikkerhetskopiering. I tillegg bør du vite hvordan du bruker scanpst, det innebygde reparasjonsverktøyet. Sist, men ikke minst, bør du forberede et mer robust eksternt verktøy, som f.eks DataNumen Outlook repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf-fiks og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med