Hvordan tælles antallet af undermapper under en bestemt mappe i Outlook?
Antag at du har oprettet nogle mapper under en rodmappe. Nu vil du vide, hvor mange undermapper under rodmappen, hvordan kan du gøre det? Udvid bare rodmappen og tæl manuelt alle undermapper en efter en? Denne artikel introducerer en nem metode til at nå det.
Tæl antallet af undermapper med VBA-kode
Tæl antallet af undermapper med VBA-kode
Den følgende VBA-kode kan hjælpe dig med at tælle antallet af undermapper under en bestemt rodmappe i Outlook. Gør som følger.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter under VBA-kode i vinduet Kode.
VBA-kode: tæl antallet af undermapper under en bestemt mappe i Outlook
Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
Exit Sub
End If
For Each xFolder In xRootFolder.Folders
If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
xFolderCount = xFolderCount + 1
Call ProcessFolders(xFolder, xFolderCount)
End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
Call ProcessFolders(xSubFolder, Num)
Next
End Sub
3. Tryk på F5 nøgle for at køre koden.
4. I åbningen Vælg mappe dialogboksen, vælg en mappe, du vil tælle dens undermapper, og klik derefter på OK knap. Se skærmbillede:
5. Derefter a Kutools til Outlook dialogboksen dukker op for at fortælle dig, hvor mange undermapper der findes i den angivne mappe. Se skærmbillede:
Relaterede artikler:
- Hvordan tælles antallet af mapper under den angivne e-mail-konto eller alle postkasser i Outlook?
- Hvordan forenes alle indbakker på flere konti for at vise alle e-mails sammen i Outlook?
- Hvordan vises en "Gennemse efter mappe" -dialog til valg af en mappe i Outlook?
- Hvordan finder jeg en manglende mappe, som ved et uheld blev flyttet i Outlook?
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.