2 Methoden zum schnellen Zählen von E-Mails nach Absender in Ihrem Outlook

Wenn Sie die E-Mails nach Absender zählen möchten, können Sie auf diesen Artikel verweisen. Hier werden wir Ihnen zwei schnelle Ansätze vorstellen.

Um Ihren aktivsten Absender zu ermitteln, können Sie die E-Mails nach Absender zählen. Outlook bietet dafür zwar keine direkte Funktion, aber es gibt alternative Methoden, wie zum Beispiel Methode 1. Falls Ihnen Methode 1 zu aufwendig ist, können Sie Methode 2 verwenden. Diese ist deutlich effizienter, da sie VBA nutzt, um E-Mails schnell nach Absender zu zählen und die Ergebnisse nach Excel zu exportieren. Im Folgenden werden die beiden Methoden detailliert beschrieben. Wir verwenden hierfür E-Mails im Posteingang als Beispiel.

Methode 1: Abrufen der Anzahl nach dem Gruppieren von Elementen nach dem Feld "Von"

1. Starten Sie zunächst die Outlook-Anwendung.
2. Öffnen Sie dann den Posteingangsordner.
3. Wechseln Sie anschließend zur Registerkarte "Ansicht".
4. Wählen Sie anschließend "Von" in der Gruppe "Arrangement".
5. Alle Posteingangselemente wurden auf einmal gemäß den verschiedenen Absendern in verschiedene Gruppen unterteilt.
6. Um nun die Artikel eines bestimmten Absenders zu zählen, können Sie alle Artikel in der zugehörigen Gruppe auswählen und die Eingabetaste drücken. In der Popup-Warnung sehen Sie die Anzahl.

Dies ist recht einfach, aber die Anzahl der Artikel umfasst auch die anderen Arten von Artikeln, z. B. Besprechungseinladungen, Aufgabenanfragen und Quittungen, nicht nur die Anzahl der E-Mails. Wenn Sie also nur E-Mails zählen möchten, können Sie stattdessen die folgende Methode verwenden.

Methode 2: Zählen von E-Mails nach Absender mit Outlook VBA

1. Drücken Sie zunächst die Tastenkombination „Alt + F11“ in Outlook.
2. Aktivieren Sie anschließend die „MS Excel-Objektbibliothek“ gemäß „Wie man in VBA einen Objektbibliotheksverweis hinzufügt".
3. Kopieren Sie anschließend den folgenden Code in ein nicht verwendetes Modul.

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. Drücken Sie danach die Taste „F5“.
4. Wenn das Makro beendet ist, wird eine neue Excel-Datei angezeigt.
5. Wie Sie sehen können, enthält es die Anzahl der Posteingangs-E-Mails von verschiedenen Absendern.

Entsorgen Sie frustrierende Outlook-Probleme

Vielleicht waren Sie in Ihrem Outlook jemals vielen Problemen ausgesetzt. Um sie effektiv anzugehen, können Sie sich nach einem vielseitigen und mächtigen Weg sehnen. Tatsächlich gibt es jedoch keine solche Methode. Sie können sich vor Ihren eigenen Vorgängen in Outlook hüten und regelmäßige Sicherungen durchführen. Wenn möglich, empfehlen wir Ihnen natürlich, ein erfahrenes Fix-Tool zur Hand zu haben DataNumen Outlook Repair. Es kann verschiedene PST-Probleme beheben und reparieren korrupte PST Datei wie eine Brise.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich erholen Sql Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX