Hoe u het totale aantal inkomende e-mails elke dag automatisch registreert in een Excel-bestand

Outlook-oplossingen 29 september 2025

In dit artikel leert u hoe u Outlook automatisch kunt laten tellen hoeveel e-mails u elke dag ontvangt en het aantal in een Excel-bestand kunt schrijven.

Veel gebruikers moeten het totale aantal e-mails dat elke dag wordt ontvangen, tellen. Bovendien zijn velen gewend om de totale telling in een Excel-bestand op te nemen, zodat ze in de toekomst gemakkelijker kunnen controleren. In dit geval kunt u er natuurlijk voor kiezen om elke dag handmatig te tellen en op te nemen. Het is echter een beetje lastig. En misschien vergeet u het soms. Daarom moet u een handige methode wensen, waardoor Outlook dit automatisch kan doen. Als reactie op deze vereiste zullen we u in het volgende leren hoe u VBA kunt gebruiken om dit te realiseren.

Registreer automatisch het totale aantal inkomende e-mails elke dag in een Excel-bestand

Registreer automatisch het totale aantal inkomende e-mails elke dag in een Excel-bestand

  1. Start vanaf het begin uw Outlook-applicatie.
  2. Druk vervolgens op de sneltoetsen "Alt + F11" in het hoofdvenster van Outlook.
  3. Open vervolgens in het pop-upvenster van de VBA-editor het "ThisOutlookSession" -project.
  4. Kopieer en plak vervolgens de volgende VBA-codes in dit project.
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

VBA-codes - Registreer automatisch het totale aantal inkomende e-mails elke dag in een Excel-bestand

  1. Onderteken vervolgens deze code en wijzig uw Outlook-macro-instellingen om ondertekende macro's toe te staan.
  2. Daarna moet u dagelijks een terugkerende taak maken.
  • Klik eerst op de knop "Nieuwe taak" in het taakvenster.
  • Klik in het pop-upvenster Nieuwe taak op de knop "Herhaling".
  • Selecteer vervolgens in het volgende dialoogvenster "Dagelijks", "Elke dag (en)" en "Geen einddatum" en klik ten slotte op "OK".Schakel Taakherhaling in
  • Wijzig later het taakonderwerp en de herinnering volgens uw behoeften.Ingestelde herinnering
  • Klik uiteindelijk op de knop "Opslaan en sluiten".
  1. Vanaf nu telt Outlook elke keer dat de herinneringswaarschuwingen van deze taak automatisch de e-mails die gisteren zijn ontvangen, en registreert het nummer vervolgens in het Excel-bestand, zoals in de volgende schermafbeelding:Excel-bestand voor het aantal e-mails

Ontsnap aan permanent PST-gegevensverlies

Niemand is bereid om permanent PST-gegevensverlies te accepteren. Het Outlook PST-bestand is echter vatbaar voor corruptie. Daarom moet u voldoende voorzorgsmaatregelen nemen, zoals het maken van een consistente en up-to-date PST-gegevensback-up en het bijhouden van een krachtige PST-herstel tool in de buurt, zoals DataNumen Outlook Repair.

Auteur Introductie:

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

Reacties zijn gesloten.