2 methoden om snel e-mails per afzender in uw Outlook te tellen

Als u de e-mails op afzender wilt tellen, kunt u dit artikel raadplegen. Hier zullen we u 2 snelle benaderingen laten zien.

Om te weten wie voor jou de meest actieve afzender is, kun je de e-mails per afzender tellen. Hoewel Outlook hier geen directe functie voor biedt, zijn er wel alternatieven, zoals Methode 1. Vind je Methode 1 te omslachtig, dan kun je kiezen voor Methode 2. Deze is veel efficiënter omdat er gebruik wordt gemaakt van VBA om snel e-mails per afzender te tellen en de tellingen naar Excel te exporteren. Lees nu verder om beide methoden in detail te bekijken. We nemen de e-mails in de Inbox als voorbeeld.

Methode 1: Tellingen ophalen na het groeperen van items op "Van" -veld

1. Start om te beginnen de Outlook-applicatie.
2. Open vervolgens de map Postvak IN.
3. Schakel vervolgens over naar het tabblad "Weergave".
4. Kies vervolgens "Van" in de groep "Arrangement".
5. In één keer zijn alle items in de inbox onderverdeeld in verschillende groepen volgens de verschillende afzenders.
6. Om nu de items van een specifieke afzender te tellen, kunt u alle items in de gerelateerde groep selecteren en op de “Enter” -toets drukken. In de pop-upwaarschuwing kunt u de telling zien.

Dit betekent dat het vrij eenvoudig is, maar het aantal items omvat in feite ook de andere soorten items, zoals uitnodigingen voor vergaderingen, taakverzoeken en ontvangstbewijzen, niet alleen het aantal e-mails. Als u dus alleen e-mails wilt tellen, kunt u in plaats daarvan de volgende manier gebruiken.

Methode 2: tel e-mails per afzender met Outlook VBA

1. Druk om te beginnen op de toetsencombinatie "Alt + F11" in Outlook.
2. Schakel vervolgens de "MS Excel-objectbibliotheek" in volgens de instructies.Hoe voeg je een verwijzing naar een objectbibliotheek toe in VBA?'.
3. Kopieer vervolgens onderstaande code naar een ongebruikte module.

Sub CountInboxEmailsbySender()
    Dim objDictionary As Object
    Dim objInbox As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim strSender As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim varSenders As Variant
    Dim varItemCounts As Variant
    Dim nLastRow As Integer
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    For i = objInbox.Items.Count To 1 Step -1
        If objInbox.Items(i).Class = olMail Then
           Set objMail = objInbox.Items(i)
           strSender = objMail.SenderEmailAddress
 
           If objDictionary.Exists(strSender) Then
              objDictionary.Item(strSender) = objDictionary.Item(strSender) + 1
           Else
              objDictionary.Add strSender, 1
           End If
        End If
    Next

    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
 
    With objExcelWorksheet
         .Cells(1, 1) = "Sender"
         .Cells(1, 2) = "Count"
    End With
 
    varSenders = objDictionary.Keys
    varItemCounts = objDictionary.Items
 
    For i = LBound(varSenders) To UBound(varSenders)
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
        With objExcelWorksheet
             .Cells(nLastRow, 1) = varSenders(i)
             .Cells(nLastRow, 2) = varItemCounts(i)
        End With
    Next
 
    objExcelWorksheet.Columns("A:B").AutoFit
End Sub

3. Druk daarna op de toets "F5".
4. Wanneer de macro is voltooid, wordt een nieuw Excel-bestand weergegeven.
5. Zoals u kunt zien, bevat het het aantal e-mails in de inbox van verschillende afzenders.

Gooi frustrerende Outlook-problemen weg

Misschien heb je ooit veel problemen gehad in je Outlook. Om ze effectief aan te pakken, verlangt u wellicht naar een veelzijdige en machtige manier. Toch is er in feite niet zo'n methode. Wat u kunt doen, is op uw hoede zijn voor uw eigen handelingen in Outlook en regelmatig back-ups maken. Natuurlijk raden we je aan om, indien mogelijk, een ervaren reparatietool bij de hand te houden, zoals DataNumen Outlook Repair. Het kan verschillende PST-problemen oplossen en repareren corrupte PST bestand als een makkie.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstellen Sql Server en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com