Tæl e-mails efter kategori i Outlook med funktionen Instant Search

Tæl e-mails efter kategori i Outlook med VBA

Denne metode vil guide dig til at finde ud af alle e-mails, der er markeret med de angivne farvekategorier af Øjeblikkelig søgning og derefter nemt få det samlede antal af alle søgeresultater på Statuslinje.

1. i Post visning, tryk på Ctrl + E taster samtidigt for at aktivere Søgeværktøjer.

2. klik Søg > kategoriseret, og vælg derefter den angivne farvekategori, som du vil tælle e-mails efter.

3. Nu er alle e-mails, der er markeret med den angivne farvekategori, fundet og opført på postlisten. Og du kan nemt få det samlede antal af alle søgeresultater på statuslinjen. Se skærmbillede:

Bemærkninger:

(1) Til optælling af e-mails markeret med Gul kategori , Orange kategori skriv samtidigt søgekriterierne category: = "Gul kategori" OG "Orange kategori" ind i Øjeblikkelig søgning boks direkte:

(2) Til optælling af e-mails markeret med Gul kategori or Orange kategori skriv samtidigt søgekriterierne category: = "Gul kategori" ELLER "Orange kategori" ind i Øjeblikkelig søgning boks direkte.

Denne metode introducerer en VBA til at tælle e-mails efter kategori i et tilpasset datointerval i Outlook. Gør følgende:

1. i Post se, vælg den e-mail-mappe, som du vil tælle e-mails med.

2. Trykke andre + F11 taster samtidigt for at åbne vinduet Microsoft Visual Basic til applikationer.

3. klik indsatte > Moduler, og indsæt derefter under VBA-kode i det nye åbningsmodulvindue:

VBA: Tæl e-mails 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. Tryk på F5 eller klik på knappen Kør for at køre denne VBA.

5. (1) I den første popping ud af Microsoft Outlook-dialogboksen skal du skrive startdatoen for det brugerdefinerede datointerval, du vil tælle e-mails inden for, og klik på OK . (2) Skriv slutdatoen i den anden Microsoft Outlook-dialogboks, og klik på OK knap. Se skærmbilleder:

Og nu kommer en dialogboks ud og viser antallet af e-mails markeret med farvekategorier. Se skærmbillede:

Tæl det samlede antal søgeresultater i Outlook

Tæl timer / dage / uger brugt på en aftale eller et møde i Outlook

Tæl antallet af e-mails efter emne i Outlook

Tæl det samlede antal indgående e-mails om dagen i Outlook

Tæl det samlede antal valgte e-mails i Outlook