Hogyan számoljuk meg az almappák számát az Outlook bizonyos mappáiban?
Tegyük fel, hogy létrehozott néhány mappát egy gyökér mappa alatt. Most tudni szeretné, hány almappát tartalmaz a gyökérmappa alatt, hogyan teheti meg? Csak bővítse ki a gyökérmappát, és manuálisan számolja meg az összes almappát egyenként? Ez a cikk egy egyszerű módszert mutat be az Ön számára.
Számolja meg az VBA kóddal rendelkező almappák számát
Számolja meg az VBA kóddal rendelkező almappák számát
A következő VBA-kód segíthet az almappák számának megszámolásában az Outlook egy bizonyos gyökérmappájában. Kérjük, tegye a következőket.
1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be a VBA kód alatt a Kód ablakba.
VBA-kód: megszámolja az almappák számát az Outlook bizonyos mappáiban
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. megnyomni a F5 gombot a kód futtatásához.
4. A nyílásban Válassza ki a Mappa párbeszédpanelen jelöljön ki egy mappát, amelynek az almappáit megszámolja, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
5. Ezután a Kutools az Outlook számára megjelenik a párbeszédpanel, amely megmondja, hány almappa létezik a megadott mappában. Lásd a képernyőképet:
Kapcsolódó cikkek:
- Hogyan lehet megszámolni a mappák számát a megadott e-mail fiók vagy az összes postaláda alatt az Outlook programban?
- Hogyan lehet egyesíteni az összes fiók összes postaládáját az összes e-mail együttes megjelenítéséhez az Outlookban?
- Hogyan jelenítsen meg egy "Mappa tallózása" párbeszédpanelt egy mappa kiválasztásához az Outlook programban?
- Hogyan lehet megtalálni egy hiányzó mappát, amelyet véletlenül áthelyeztek az Outlook programba?
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.