Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe e-mails per categorie tellen in Outlook?

Mogelijk hebt u in Outlook e-mails gemarkeerd met kleurcategorieën. Maar weet u hoe u e-mails per categorie moet tellen? Dit artikel deelt twee oplossingen:

Office-tabblad - Schakel bewerken en browsen met tabbladen in Office in en maak het werk veel gemakkelijker ...
Kutools for Outlook - Brengt 100 krachtige geavanceerde functies naar Microsoft Outlook
  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails volgens regels; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u iedereen probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het mailgesprek; Beantwoord veel e-mails tegelijk; Begroeting automatisch toevoegen wanneer antwoord; Datum en tijd automatisch toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: Automatisch loskoppelen, alles comprimeren, alles hernoemen, alles automatisch opslaan ... Quick Report, Tel geselecteerde e-mails, Dubbele e-mails en contacten verwijderen ...
  • Meer dan 100 geavanceerde functies zullen los de meeste van uw problemen op in Outlook 2010-2019 en 365. Volledige gratis proefperiode van 60 dagen.

pijl blauw rechts bel Tel e-mails op categorie in Outlook met de functie Direct zoeken

Deze methode helpt u om alle e-mails te vinden die zijn gemarkeerd met de opgegeven kleurcategorieën door de Direct zoeken -functie en krijg vervolgens eenvoudig het totale aantal zoekresultaten bij de Statusbalk.

1. In de E-mailadres bekijken, druk op Ctrl + E toetsen tegelijkertijd om de Zoekhulpmiddelen.

2. klikken Zoeken > Gecategoriseerden selecteer vervolgens de opgegeven kleurcategorie waarmee u e-mails wilt tellen.

3. Nu worden alle e-mails die zijn gemarkeerd met de opgegeven kleurcategorie gevonden en vermeld in de mailinglijst. En u kunt eenvoudig het totale aantal zoekresultaten in de statusbalk krijgen. Zie screenshot:

Opmerkingen:

(1) Voor het tellen van e-mails gemarkeerd met Gele categorie als Oranje categorie Voer tegelijkertijd de zoekcriteria in category: = "Gele categorie" EN "Oranje categorie" in de Direct zoeken doos direct:

(2) Voor het tellen van e-mails gemarkeerd met Gele categorie or Oranje categorie Voer tegelijkertijd de zoekcriteria in category: = "Gele categorie" OF "Oranje categorie" in de Direct zoeken doos direct.


pijl blauw rechts bel Tel e-mails op categorie in Outlook met VBA

Deze methode introduceert een VBA om e-mails per categorie te tellen in een aangepast datumbereik in Outlook. Ga als volgt te werk:

1. In de E-mailadres bekijken, selecteert u de e-mailmap waarin u e-mails gaat tellen.

2. druk op anders + F11 toetsen tegelijk om het venster Microsoft Visual Basic for Applications te openen.

3. klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe openingsmodule-venster:

VBA: tel e-mails op categorie in 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. druk de F5 toets of klik op de knop Uitvoeren om deze VBA uit te voeren.

5. (1) Typ in het eerste pop-upvenster van Microsoft Outlook de startdatum van het aangepaste datumbereik waarin u de e-mails wilt tellen en klik op de OK knop. (2) Typ in het tweede dialoogvenster van Microsoft Outlook de einddatum en klik op OK knop. Zie screenshots:

En nu verschijnt er een dialoogvenster met het aantal e-mails gemarkeerd met kleurcategorieën. Zie screenshot:


pijl blauw rechts belGerelateerde artikelen


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sanjana · 1 years ago
    The total number of emails just used to appear beside the Name of the catagory. Does anyone know how to set this?
  • To post as a guest, your comment is unpublished.
    Prince · 1 years ago
    Hi,
    Instead of only calculating from the selected folder, is there a way to include all the sub folders as well?
    • To post as a guest, your comment is unpublished.
      Lars · 1 months ago
      Hi
      Did you manage to solve this ?
      I would like to count in subfolders to.
  • To post as a guest, your comment is unpublished.
    Radvi · 1 years ago
    Hello, is there is a possibility to count letters marked with categories if in one letter we have few cases and they must be counted: for example green category - 1 letter with 3 cases inside = 3 green category cases ?


    ThANK YOU
  • To post as a guest, your comment is unpublished.
    Dylan · 1 years ago
    is there a way you can covert this into an excel table?
    • To post as a guest, your comment is unpublished.
      kellytte · 1 years ago
      Hi Dylan,
      Below VBA code will place the count results in a new Excel workbook.
      FYI, please enable the reference of “Microsoft Excel 16.0 Object Library” before running the VBA.
      Sub CategoriesEmails()
      Dim xFolder As MAPIFolder
      Dim xDict As Object
      Dim xStartDate As String, xEndDate As String
      Dim xItems As Outlook.Items
      Dim xStr As String, xMsg As String
      Dim xExlApp As Object
      Dim xWb As Workbook, xWs As Worksheet
      Dim I As Integer
      On Error Resume Next
      Set xExlApp = CreateObject("Excel.Application")
      Set xWb = xExlApp.Workbooks.Add
      Set xWs = xWb.Sheets.Item(1)
      Set xFolder = Application.ActiveExplorer.CurrentFolder
      Set xDict = CreateObject("Scripting.Dictionary")
      xStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
      xEndDate = InputBox("Type the end date (format MM/DD/YYYY)")
      Set xItems = xFolder.Items.Restrict("[ReceivedTime] >= '" & xStartDate & "' And [ReceivedTime] <= '" & xEndDate & "'")
      'xItems.SetColumns ("Categories")
      For Each xItem In xItems
      xStr = xItem.Categories
      If Not xDict.Exists(xStr) Then
      xDict(xStr) = 0
      End If
      xDict(xStr) = CLng(xDict(xStr)) + 1
      Next xItem
      xMsg = ""
      xWs.Range("A1", "B1").Font.Bold = True
      With xWs.Range("A1", "B1")
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
      End With
      xWs.Cells(1, 1) = "Categories"
      xWs.Cells(1, 2) = "Count"
      I = 2
      For Each xKey In xDict.Keys
      If xKey <> "" Then
      xWs.Cells(I, 1) = xKey
      xWs.Cells(I, 2) = xDict(xKey)
      I = I + 1
      End If
      Next
      xWs.Range("A1", "B" + CStr(I)).Columns.AutoFit
      xExlApp.Visible = True
      Set xFolder = Nothing
      End Sub
      • To post as a guest, your comment is unpublished.
        Clint · 6 months ago
        I know this is an older thread, but if anyone can assist it would be greatly appreciated.  When running the code I'm hitting a compile error "User-defined type not defined" for the 8th line "Dim xWB As Workbook, xWs As Worksheet"

        • To post as a guest, your comment is unpublished.
          Lars · 1 months ago
          Hi
          Did you manage to solve this ?
          I got the same problem

          Solution:
          Simply delete the row:
          Dim xWb As Workbook, xWs As Worksheet
        • To post as a guest, your comment is unpublished.
          Lars · 1 months ago
          Hi
          Did you manage to solve this ?
          I got the same problem

      • To post as a guest, your comment is unpublished.
        Sarah Creswell · 1 years ago
        This was helpful for me also, thank you so much for sharing!
  • To post as a guest, your comment is unpublished.
    Aymeric · 2 years ago
    Hi , thanks it workd perfectly for month of June, but when I run this for July, it only shows the total number of emails... any idea?
  • To post as a guest, your comment is unpublished.
    Abhishek Singhal · 2 years ago
    Hi Thanks, it works perfectly, just one quick query- Can we get the Msgbox results to be displayed in excel, as whenever i want to run the macro it should be displayed in excel.
    every time one below the previous results.
  • To post as a guest, your comment is unpublished.
    Emma · 4 years ago
    This is perfect, but how can I change the VBA to include subfolders of the current folder in the count?