So zeichnen Sie die Gesamtzahl der eingehenden E-Mails jeden Tag automatisch in einer Excel-Datei auf

In diesem Artikel erfahren Sie, wie Sie Outlook automatisch zählen lassen, wie viele E-Mails Sie täglich erhalten haben, und die Nummer in eine Excel-Datei schreiben.

Viele Benutzer müssen die Gesamtzahl der täglich eingegangenen E-Mails zählen. Darüber hinaus sind viele daran gewöhnt, die Gesamtzahl in einer Excel-Datei aufzuzeichnen, um sie in Zukunft bequemer überprüfen zu können. In diesem Fall können Sie natürlich jeden Tag manuell zählen und aufzeichnen. Es ist jedoch ein bisschen mühsam. Und Sie können es manchmal vergessen. Daher müssen Sie eine praktische Methode wünschen, mit der Outlook dies automatisch tun kann. In Reaktion auf diese Anforderung werden wir Ihnen im Folgenden beibringen, wie Sie VBA verwenden, um dies zu realisieren.

Automatische Aufzeichnung der Gesamtzahl der eingehenden E-Mails pro Tag in einer Excel-Datei

1. Starten Sie gleich zu Beginn Ihre Outlook-Anwendung.
2. Drücken Sie dann im Outlook-Hauptfenster die Tastenkombinationen „Alt + F11“.
3. Öffnen Sie als Nächstes im Popup-Fenster des VBA-Editors das Projekt „ThisOutlookSession“.
4. Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie in dieses Projekt ein.

Private Sub Application_Reminder(ByVal Item As Object)
    If Item.Class = olTask And Item.Subject = "Update Email Count" Then
       Call GetAllInboxFolders
    End If
End Sub

Private Sub GetAllInboxFolders()
    Dim objInboxFolder As Outlook.Folder
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
    Dim lEmailCount As Long
 
    lEmailCount = 0
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Call UpdateEmailCount(objInboxFolder, lEmailCount)
 
    ‘Change the path to the Excel file
    strExcelFile = "E:\Email\Email Count.xlsx"
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
 
    nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
    'Add the values into the columns
    objExcelWorksheet.Range("A" & nNextEmptyRow) = nNextEmptyRow - 1
    objExcelWorksheet.Range("B" & nNextEmptyRow) = Year(Date - 1) & "-" & Month(Date - 1) & "-" & Day(Date - 1)
    objExcelWorksheet.Range("C" & nNextEmptyRow) = lEmailCount
 
    'Fit the columns from A to C
    objExcelWorksheet.Columns("A:C").AutoFit
   
    'Save the changes and close the Excel file
    objExcelWorkbook.Close SaveChanges:=True
End Sub

Private Sub UpdateEmailCount(objFolder As Outlook.Folder, ByRef lCurEmailCount As Long)
    Dim objItems As Outlook.Items
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim strDay As String
    Dim strReceivedDate As String
    Dim lEmailCount As Long
    Dim objSubFolder As Outlook.Folder
 
    Set objItems = objFolder.Items
 
    objItems.SetColumns ("ReceivedTime")
    strDay = Year(Date - 1) & "-" & Month(Date - 1) & "-" & Day(Date - 1)
 
    For Each objItem In objItems
        If objItem.Class = olMail Then
           Set objMail = objItem
           strReceivedDate = Year(objMail.ReceivedTime) & "-" & Month(objMail.ReceivedTime) & "-" & Day(objMail.ReceivedTime)
           If strReceivedDate = strDay Then
              lCurEmailCount = lCurEmailCount + 1
           End If
        End If
    Next
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call UpdateEmailCount(objSubFolder, lCurEmailCount)
       Next
    End If
End Sub

5. Signieren Sie als Nächstes diesen Code und ändern Sie Ihre Outlook-Makroeinstellungen, um signierte Makros zuzulassen.
6. Danach müssen Sie täglich eine wiederkehrende Aufgabe erstellen.

• Klicken Sie zunächst im Aufgabenbereich auf die Schaltfläche „Neue Aufgabe“.
• Klicken Sie im Popup-Fenster Neue Aufgabe auf die Schaltfläche "Wiederholung".
• Wählen Sie dann im nachfolgenden Dialogfeld "Täglich", "Alle 1 Tag (e)" und "Kein Enddatum" und klicken Sie zuletzt auf "OK".
• Ändern Sie später das Thema und die Erinnerung gemäß Ihren Anforderungen.
• Klicken Sie schließlich auf die Schaltfläche "Speichern und schließen".

7. Von nun an zählt Outlook bei jeder Erinnerungsbenachrichtigung dieser Aufgabe automatisch die gestern empfangenen E-Mails und zeichnet die Nummer dann wie im folgenden Screenshot in der Excel-Datei auf:

Entfliehen Sie dem permanenten PST-Datenverlust

Niemand ist bereit, dauerhaften PST-Datenverlust zu akzeptieren. Die Outlook PST-Datei ist jedoch anfällig für Beschädigungen. Daher sollten Sie ausreichende Vorsichtsmaßnahmen treffen, z. B. eine konsistente und aktuelle PST-Datensicherung durchführen und eine leistungsstarke Sicherung durchführen PST-Wiederherstellung Werkzeug in der Nähe, wie DataNumen Outlook Repair.

Einführung des Autors:

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