Hur räknar man antalet undermappar under en viss mapp i Outlook?
Anta att du har skapat några mappar under en rotmapp. Nu vill du veta hur många undermappar under rotmappen, hur kan du göra det? Bara expandera rotmappen och manuellt räkna alla undermappar en efter en? Den här artikeln kommer att introducera en enkel metod för dig att uppnå det.
Räkna antal undermappar med VBA-kod
Räkna antal undermappar med VBA-kod
Följande VBA-kod kan hjälpa dig att räkna antalet undermappar under en viss rotmapp i Outlook. Vänligen gör enligt följande.
1. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra sedan in under VBA-koden i kodfönstret.
VBA-kod: antal undermappar under en viss mapp 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. tryck på F5 för att köra koden.
4. I öppningen Välj mapp dialogrutan, välj en mapp som du ska räkna dess undermappar och klicka sedan på OK knapp. Se skärmdump:
5. Sedan a Kutools för Outlook dialogrutan dyker upp för att berätta hur många undermappar som finns i den angivna mappen. Se skärmdump:
Relaterade artiklar:
- Hur räknar man antalet mappar under angivet e-postkonto eller alla postlådor i Outlook?
- Hur förenar jag alla inkorgar i flera konton för att visa alla e-postmeddelanden tillsammans i Outlook?
- Hur visar jag en dialogruta "Bläddra efter mapp" för att välja en mapp i Outlook?
- Hur hittar jag en saknad mapp som flyttades av misstag i Outlook?
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.