Sådan får du hurtigt det samlede antal undermapper under en bestemt mappe i Outlook

Måske har du oprettet et stort antal undermapper under en bestemt mappe, såsom Indbakke, i din Outlook. I dette tilfælde, hvis du vil tælle undermapperne, skal du være tilbageholdende med at tælle manuelt. Her vil vi dele dig på en langt smartere måde.

For bedre at klassificere og arkivere elementer i Outlook, er mange brugere vant til at oprette forskellige mapper og undermapper. Alligevel kan de bagefter synes, det er lidt svært at administrere for mange mapper. I dette tilfælde vil de måske tælle, hvor mange undermapper der er under en bestemt mappe. Uden tvivl er det dumt og kedeligt at tælle manuelt. Derfor vil vi i det følgende vise et meget mere intelligent middel.

Få det samlede antal undermapper under en specifik mappe

1. Fra begyndelsen, start dit Outlook-program.
2. Derefter kan du i Outlook-vinduet trykke på "Alt + F11"-tasterne for at få adgang til VBA-editor.
3. Dernæst skal du i det efterfølgende popup-vindue åbne et modul, som ikke bliver brugt.
4. Kopier og indsæt derefter følgende VBA-kode i dette 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. Derefter kan du lukke det aktuelle vindue.
6. Gå senere til “Filer” > “Indstillinger” > “Hurtig adgangsværktøjslinje”. Der kan du tilføje den nye makro til Quick Access Toolbar.
7. Endelig kan du prøve denne makro.

• Først skal du vælge en mappe, hvis undermapper du gerne vil tælle.
• Klik derefter på makroknappen i værktøjslinjen Hurtig adgang.
• Straks vil Outlook køre denne makro.
• Når makroen er færdig, vil du få en besked, som følgende billede:

Tricks til at håndtere Outlook-korruption

Outlook er lynende sårbart over for en masse faktorer, herunder vira, software- eller hardwareproblemer, strømafbrydelse og så videre. Ingen kan garantere, at de er i stand til at holde deres Outlook-fil langt væk fra korruption. Derfor er det vigtigt at mestre nogle tricks til at håndtere skader. For det første skal du lave regelmæssig PST backup. Derudover bør du vide, hvordan du bruger scanpst, det indbyggede reparationsværktøj. Sidst, men ikke mindst, bør du forberede et mere robust eksternt værktøj, som f.eks DataNumen Outlook repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf-rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com