Kuinka laskea tietyn Outlookin kansion alikansioiden lukumäärä?
Oletetaan, että olet luonut joitakin kansioita juurikansion alle. Nyt haluat tietää kuinka monta alikansiota juurikansion alla, miten voit tehdä? Laajenna juurikansio ja laske kaikki alikansiot manuaalisesti yksitellen? Tässä artikkelissa esitellään helppo tapa saavuttaa se.
Laske alikansioiden määrä VBA-koodilla
Laske alikansioiden määrä VBA-koodilla
Seuraava VBA-koodi voi auttaa sinua laskemaan tietyn Outlookin juurikansion alikansioiden määrän. Toimi seuraavasti.
1. paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications -ikkunassa liite > Moduulit. Kopioi ja liitä alla oleva VBA-koodi Code-ikkunaan.
VBA-koodi: laske Outlookin tietyn kansion alikansioiden määrä
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 Sub3. paina F5 avain koodin suorittamiseen.
4. Aukossa Valitse kansio -valintaikkunassa, valitse kansio, jonka alikansiot lasketaan, ja napsauta sitten OK -painiketta. Katso kuvakaappaus:
5. Sitten a Kutools Outlookille valintaikkuna avautuu ja kertoo kuinka monta alikansiota määritetyssä kansiossa on. Katso kuvakaappaus:
Aiheeseen liittyviä artikkeleita:
- Kuinka laskea tietyn sähköpostitilin kansioiden lukumäärä tai kaikki Outlookin postilaatikot?
- Kuinka yhdistää useiden tilien kaikki postilaatikot näyttämään kaikki sähköpostit yhdessä Outlookissa?
- Kuinka näyttää "Selaa kansiota" -valintaikkuna kansion valitsemiseksi Outlookissa?
- Kuinka löytää puuttuva kansio, joka on vahingossa siirretty Outlookissa?
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
