Hoe u snel het totale aantal submappen onder een specifieke map in Outlook kunt ophalen

Misschien heeft u in uw Outlook een groot aantal submappen gemaakt onder een bepaalde map, zoals Inbox. Als u in dit geval de submappen wilt tellen, moet u terughoudend zijn om handmatig te tellen. Hier zullen we je op een veel slimmere manier delen.

Om items in Outlook beter te classificeren en te archiveren, zijn veel gebruikers gewend om verschillende mappen en submappen te maken. Maar achteraf vinden ze het misschien een beetje moeilijk om te veel mappen te beheren. In dat geval willen ze misschien tellen hoeveel submappen er onder een specifieke map zijn. Het is zonder enige twijfel dom en vervelend om handmatig te tellen. Daarom zullen we in het volgende een veel intelligentere manier laten zien.

Verkrijg het totale aantal submappen onder een specifieke map

1. Vanaf het allereerste begin start uw Outlook-programma.
2. Vervolgens kunt u in het Outlook-venster op de toets "Alt + F11" drukken om de VBA-editor te openen.
3. Vervolgens moet u in het volgende pop-upvenster een module openen die niet wordt gebruikt.
4. Kopieer en plak vervolgens de volgende VBA-code in deze module.

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. Daarna kunt u het huidige venster verlaten.
6. Ga later naar “Bestand”> “Opties”> “Werkbalk Snelle toegang”. Daar kunt u de nieuwe macro toevoegen aan de werkbalk Snelle toegang.
7. Eindelijk kunt u deze macro proberen.

• Selecteer eerst een map waarvan u de submappen wilt tellen.
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• Outlook zal deze macro onmiddellijk uitvoeren.
• Nadat de macro is voltooid, krijgt u een bericht, zoals de volgende afbeelding:

Trucs om te gaan met Outlook-corruptie

Outlook is enorm kwetsbaar voor tal van factoren, waaronder virussen, software- of hardwareproblemen, stroomuitval enzovoort. Niemand kan garanderen dat ze hun Outlook-bestand ver weg kunnen houden van corruptie. Daarom is het essentieel om enkele trucs onder de knie te krijgen om met schade om te gaan. Ten eerste moet u regelmatig een PST-back-up maken. Bovendien moet u weten hoe u het moet gebruiken scanpst, de ingebouwde reparatietool. Last but not least zou u een robuustere externe tool moeten voorbereiden, zoals DataNumen Outlook repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf-oplossing en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com