Cum să obțineți rapid numărul total de articole dintr-un folder și toate subfolderele acestuia prin Outlook VBA

Dacă aveți mai multe subdosare sub un anumit folder și acum doriți să numărați articolele din acest folder și toate subfolderele sale, puteți utiliza modul introdus în acest articol.

Obțineți rapid numărul total de articole dintr-un folder și toate subfolderele acestuia prin Outlook VBAÎn general, pentru a verifica numărul total de articole dintr-un dosar, aveți două moduri. Una este să selectați acest dosar și apoi puteți vedea numărul de articole în colțul din stânga jos al barei de stare. Celălalt este să schimbați proprietățile folderului pentru a-l seta să arate numărul total de articole. Cu toate acestea, dacă există mai multe subfoldere sub acest folder, ambele două mijloace de mai sus nu sunt capabile să includă subfolderele în numărare. Prin urmare, dacă doriți să obțineți numărul total de articole dintr-un folder și toate subfolderele acestuia, trebuie să căutați alte mijloace, cum ar fi următorul. Utilizează codul VBA pentru a obține rapid un astfel de număr total. Citiți mai departe pentru a obține pașii elaborați și codurile VBA.

Obțineți numărul total de articole dintr-un folder și toate subdosarele acestuia

  1. De la bun început, puteți starprogramul dvs. Outlook ca de obicei.
  2. Apoi apăsați butoanele tastei „Alt + F11” pentru a afișa editorul Outlook VBA.
  3. Apoi, puteți deschide un modul gol.
  4. Ulterior, copiați și lipiți următoarele coduri VBA în acest modul.
Sub CountItems() Dim objMainFolder As Outlook.Folder Dim lItemsCount As Long 'Selectați un folder Set objMainFolder = Outlook.Application.Session.PickFolder Dacă objMainFolder nu este nimic, atunci MsgBox „Alegi selectați un folder valid!”, vbExclamation + vb pentru Pick Folder" Else "Inițializați numărul total lItemsCount = 0 Apelați LoopFolders(objMainFolder, lItemsCount) End If "Afișați un mesaj pentru numărul total MsgBox "Există" & lItemsCount & " articole în folderul " & objMainFolder.Name & " Inclusiv subfolderele sale.", vbInformation, "Count Items" End Sub Sub LoopFolders(ByVal objCurrentFolder As Outlook.Folder, lCurrentItemsCount As Long) Dim objSubfolder As Outlook.Folder lCurrentItemsCount = lCurrentItemsCount + objCurrentItemsCount + objCurrentFolders subfolders și foldere recurente. Dacă objCurrentFolder.Folders.Count Atunci pentru fiecare objSubfolder din objCurrentFolder.Folders Apelați LoopFolders(objSubfolder, lCurrentItemsCount) Next End If End Sub

Cod VBA - Obțineți numărul total de articole dintr-un folder și toate subfolderele acestuia

  1. După aceea, ar trebui să schimbați nivelul de securitate al macrocomenzii Outlook la scăzut.
  2. În sfârșit poți încerca.
  • În noua fereastră macro, apăsați butonul F5.
  • Imediat, vi se va cere să selectați un folder.Selectați un folder
  • Imediat, veți primi un mesaj nou care vă solicită numărul total de articole din folderul selectat și toate subfolderele sale, ca în imaginea de mai jos:Numărați articolele

Arhivați articole vechi în timp

Este întotdeauna sugerat să arhivați elementele vechi din fișierul dvs. PST cât mai curând posibil. În caz contrar, cu tot mai multe elemente care se acumulează în acest fișier, acesta va fi predispus la erori și corupții. Odată ce fișierul dvs. PST este compromis, veți cheltui multe eforturi pentru a recupera corupt Outlook date. Va fi destul de dificil dacă nu recurgi la un instrument cu experiență precum DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupt SQL Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com

Un răspuns la „Cum să obțineți rapid numărul total de articole dintr-un folder și toate subfolderele sale prin Outlook VBA”

  1. Bună, aceasta oferă un număr de e-mailuri dintr-un folder la un moment dat. Cum pot obține numărul mai multor subfoldere imbricate în diferite dosare ale unei căsuțe de intrare partajate în Outlook simultan.

Lasă un comentariu

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate *