Räkna e-post efter kategori i Outlook med funktionen Instant Search

Räkna e-postmeddelanden efter kategori i Outlook med VBA

Denna metod hjälper dig att ta reda på alla e-postmeddelanden som är markerade med de angivna färgkategorierna av Snabbsökning och sedan enkelt få det totala antalet alla sökresultat på Statusfält.

1. I Post visa, tryck ctrl + E samtidigt för att aktivera Sökverktyg.

2. klick Sök > kategoriserasoch välj sedan den angivna färgkategorin som du räknar e-postmeddelanden med.

3. Nu visas alla e-postmeddelanden som är markerade med den angivna färgkategorin och listas i e-postlistan. Och du kan enkelt få det totala antalet sökresultat i statusfältet. Se skärmdump:

Anmärkningar:

(1) För att räkna e-postmeddelanden markerade med Gul kategori och Orange kategori skriv samtidigt sökkriterierna category: = "Gul kategori" OCH "Orange kategori" i Snabbsökning låda direkt:

(2) För att räkna e-postmeddelanden markerade med Gul kategori or Orange kategori skriv samtidigt sökkriterierna category: = "Gul kategori" ELLER "Orange kategori" i Snabbsökning rutan direkt.

Denna metod introducerar en VBA för att räkna e-postmeddelanden efter kategori i ett anpassat datumintervall i Outlook. Gör så här:

1. I Post visa, välj den e-postmapp som du räknar e-postmeddelanden.

2. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.

3. klick Insert > Modulernaoch klistra sedan in under VBA-koden i det nya öppningsmodulfönstret:

VBA: Räkna e-postmeddelanden efter kategori i 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. tryck på F5 eller klicka på Kör-knappen för att köra denna VBA.

5. (1) I den första popup-dialogrutan Microsoft Outlook, skriv in startdatumet för det anpassade datumintervall som du räknar e-postmeddelanden inom och klicka på OK knapp. (2) Ange slutdatum i den andra Microsoft Outlook-dialogrutan och klicka på OK knapp. Se skärmdumpar:

Och nu kommer en dialogruta ut som visar antalet e-postmeddelanden markerade med färgkategorier. Se skärmdump:

Räkna det totala antalet sökresultat i Outlook

Räkna timmar / dagar / veckor spenderade på ett möte eller möte i Outlook

Räkna antalet e-postmeddelanden efter ämne i Outlook

Räkna totalt antal inkommande e-postmeddelanden per dag i Outlook

Räkna totalt antal valda e-postmeddelanden i Outlook