Numărați e-mailurile pe categorii în Outlook cu funcția Căutare instantanee

Numărați e-mailurile pe categorii în Outlook cu VBA

Această metodă vă va ghida să aflați toate e-mailurile marcate cu categoriile de culori specificate de Căutare instantanee , apoi obțineți cu ușurință numărul total al tuturor rezultatelor căutării la Bara de stare.

1. În Mail vizualizare, apăsați Ctrl + E tastele simultan pentru a activa Instrumente de căutare.

2. clic Caută > clasificate, apoi selectați categoria de culoare specificată după care veți număra e-mailurile.

3. Acum toate e-mailurile marcate cu categoria de culoare specificată sunt găsite și listate în lista de e-mailuri. Și puteți obține cu ușurință numărul total al tuturor rezultatelor căutării în bara de stare. Vedeți captura de ecran:

note:

(1) Pentru numărarea e-mailurilor marcate cu Categoria galbenă și Categoria portocaliu simultan, introduceți criteriile de căutare categorie: = "Categorie galbenă" ȘI "Categorie portocalie" în Căutare instantanee caseta direct:

(2) Pentru numărarea e-mailurilor marcate cu Categoria galbenă or Categoria portocaliu simultan, introduceți criteriile de căutare categorie: = "Categorie galbenă" SAU "Categorie portocalie" în Căutare instantanee direct cutie.

Această metodă va introduce un VBA pentru a număra e-mailurile pe categorii într-un interval de date personalizat în Outlook. Vă rugăm să faceți următoarele:

1. În Mail vizualizare, selectați folderul de e-mail pe care îl veți număra.

2. presa Alt + F11 simultan pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

3. clic Insera > Module, și apoi lipiți mai jos codul VBA în noua fereastră a modulului de deschidere:

VBA: Numărați e-mailurile pe categorii în Outlook

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. apasă pe F5 tasta sau faceți clic pe butonul Executare pentru a rula acest VBA.

5. (1) În prima casetă de dialog Microsoft Outlook, introduceți data de începere a intervalului de date personalizat în care veți conta e-mailurile și faceți clic pe OK butonul. (2) În a doua casetă de dialog Microsoft Outlook, vă rugăm să tastați data de încheiere și să faceți clic pe OK buton. Vedeți capturi de ecran:

Și acum apare o casetă de dialog și afișează numerele de e-mailuri marcate cu categorii de culori. Vedeți captura de ecran:

Numărați numărul total de rezultate ale căutării în Outlook

Numărați ore / zile / săptămâni petrecute la o întâlnire sau întâlnire în Outlook

Numărați numărul de e-mailuri după subiect în Outlook

Numărați numărul total de e-mailuri primite pe zi în Outlook

Numărați numărul total de e-mailuri selectate în Outlook