Jak spočítat počet podsložek v určité složce v aplikaci Outlook?
Předpokládejme, že jste vytvořili nějaké složky v kořenové složce. Nyní chcete vědět, kolik podsložek v kořenové složce, jak to můžete udělat? Stačí rozbalit kořenovou složku a ručně spočítat všechny podsložky jednu po druhé? Tento článek představí snadnou metodu, jak toho dosáhnout.
Spočítat počet podsložek pomocí kódu VBA
Spočítat počet podsložek pomocí kódu VBA
Následující kód VBA vám pomůže spočítat počet podsložek v určité kořenové složce v aplikaci Outlook. Postupujte prosím následovně.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte pod kód VBA do okna Kód.
Kód VBA: spočítat počet podsložek v určité složce v aplikaci 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. zmáčkni F5 klíč ke spuštění kódu.
4. V otvoru Vybrat složku V dialogovém okně vyberte složku, jejíž podsložky budete počítat, a poté klepněte na OK knoflík. Viz screenshot:
5. Pak a Kutools pro aplikaci Outlook Zobrazí se dialogové okno, které vám řekne, kolik podsložek existuje v zadané složce. Viz snímek obrazovky:
Související články:
- Jak spočítat počet složek pod zadaným e-mailovým účtem nebo všemi poštovními schránkami v aplikaci Outlook?
- Jak sjednotit všechny složky doručené pošty více účtů, aby se v aplikaci Outlook zobrazovaly všechny e-maily společně?
- Jak zobrazit dialogové okno „Procházet složku“ pro výběr složky v aplikaci Outlook?
- Jak najít chybějící složku, která byla v aplikaci Outlook náhodně přesunuta?
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.