Cum se numără numărul de subfoldere din anumite dosare din Outlook?

Presupunând că ați creat câteva foldere sub un folder rădăcină. Acum doriți să știți câte subfoldere din folderul rădăcină, cum puteți face? Doar extindeți folderul rădăcină și numărați manual fiecare subfoldere unul câte unul? Acest articol va introduce o metodă ușoară pentru a o realiza.

Numărați numărul de subfoldere cu cod VBA

Numărați numărul de subfoldere cu cod VBA

Următorul cod VBA vă poate ajuta să numărați numărul de subfoldere dintr-un anumit folder rădăcină în Outlook. Vă rugăm să faceți următoarele.

1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți mai jos codul VBA în fereastra Cod.

Cod VBA: numărați numărul de subfoldere din anumite dosare din 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. apasă pe F5 tasta pentru a rula codul.

4. În deschidere Selectați Dosar caseta de dialog, selectați un folder în care îi veți număra subfolderele, apoi faceți clic pe OK buton. Vedeți captura de ecran:

5. Apoi a Kutools pentru Outlook caseta de dialog apare pentru a vă spune câte subfoldere există în folderul specificat. Vedeți captura de ecran:

Legate de articole:

• Cum se numără numărul de foldere din contul de e-mail specificat sau din toate cutiile poștale din Outlook?
• Cum se unifică toate căsuțele primite din mai multe conturi pentru a afișa toate e-mailurile împreună în Outlook?
• Cum se afișează o fereastră de dialog „Răsfoiți folderul” pentru alegerea unui folder în Outlook?
• Cum să găsiți un folder lipsă care a fost mutat accidental în Outlook?

---

Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente Pro: Salvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

Citeste mai mult       Descărcare gratuită      Cumpărare