Számolja az e-maileket kategória szerint az Outlookban az Azonnali keresés funkcióval

Számolja az e-maileket kategória szerint az Outlookban a VBA segítségével

Ez a módszer segít megtalálni az összes olyan e-mailt, amelyet a Azonnali keresés funkciót, majd könnyedén megkapja az összes keresési eredmény teljes számát a Állapotsor.

1. Ban,-ben Levél nézethez nyomja meg a gombot Ctrl + E gombok egyszerre a Keresési eszközök.

2. kettyenés Keresés > kategorizált, majd válassza ki a megadott színkategóriát, amely alapján meg fogja számlálni az e-maileket.

3. Most minden, a megadott színkategóriával megjelölt e-mail megtalálható és felkerül a levelezőlistára. És könnyen megkaphatja az összes keresési eredmény teljes számát az állapotsoron. Lásd a képernyőképet:

Megjegyzések:

(1) A jelzéssel ellátott e-mailek számlálásához Sárga kategória és a Narancs kategória egyszerre írja be a keresési feltételeket category: = "Sárga kategória" ÉS "Narancs kategória" be a Azonnali keresés doboz közvetlenül:

(2) A jelzéssel ellátott e-mailek számlálásához Sárga kategória or Narancs kategória egyszerre írja be a keresési feltételeket category: = "Sárga kategória" VAGY "Narancs kategória" be a Azonnali keresés doboz közvetlenül.

Ez a módszer bevezet egy VBA-t, amely az e-maileket kategóriák szerint számolja az Outlook egyéni dátumtartományában. Kérjük, tegye a következőket:

1. Ban,-ben Levél nézetben válassza ki azt az e-mail mappát, amelybe az e-maileket számolni fogja.

2. nyomja meg más + F11 gombokat egyidejűleg a Microsoft Visual Basic for Applications ablak megnyitásához.

3. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá az új nyitó Modul ablakba:

VBA: Az e-maileket kategóriák szerint számolja az Outlook programban

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. megnyomni a F5 vagy kattintson a Futtatás gombra a VBA futtatásához.

5. (1) Az első megjelenő Microsoft Outlook párbeszédpanelen írja be annak az egyéni dátumtartománynak a kezdési dátumát, amelyen belül megszámolja az e-maileket, majd kattintson a OK gombot. (2) A második Microsoft Outlook párbeszédpanelen írja be a befejezés dátumát, majd kattintson a gombra OK gomb. Képernyőképek megtekintése:

És most megjelenik egy párbeszédpanel, amely megjeleníti a színkategóriákkal jelölt e-mailek számát. Lásd a képernyőképet:

Számolja meg a keresési eredmények teljes számát az Outlook programban

Számolja meg az Outlookban egy találkozóra vagy megbeszélésre fordított órákat / napokat / heteket

Számolja meg az e-mailek számát tárgyanként az Outlook programban

Számolja meg az Outlook napi bejövő e-mailjeinek teljes számát

Számolja meg a kiválasztott e-mailek számát az Outlook programban