Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe het aantal verzonden e-mails per maand in Outlook te tellen?

Author Xiaoyang Last modified

Soms wilt u misschien weten hoeveel e-mails u per maand hebt verzonden. Deze handleiding introduceert een VBA-code waarmee u het aantal verzonden e-mails per maand in Outlook kunt tellen.

Tel het aantal verzonden e-mails per maand in Outlook met VBA-code

Pas de onderstaande VBA-code toe om het aantal verzonden e-mails per maand te krijgen, zoals hieronder weergegeven:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Tel het aantal verzonden e-mails per maand:

Dim GDictionary As Object
Sub CountSentMailsByMonth()
'Updateby Extendoffice
Dim xSentFolder As Outlook.Folder
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMonths As Variant
Dim xItemsCount As Variant
Dim xLastRow As Integer
Dim I As Integer
Dim xAccount As Account
On Error Resume Next
Set GDictionary = CreateObject("Scripting.Dictionary")
For Each xAccount In Application.Session.Accounts
  If VBA.LCase$(xAccount.SmtpAddress) = VBA.LCase$("yy@addin99.com") Then  'Specify the Email Account
    Set xSentFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderSentMail)
    If xSentFolder.DefaultItemType = olMailItem Then
      Call ProcessFolders(xSentFolder)
    End If
  End If
Next
Set xSentFolder = Nothing
Set xExcelApp = CreateObject("Excel.Application")
xExcelApp.Visible = True
Set xWb = xExcelApp.Workbooks.Add
Set xWs = xWb.Sheets(1)
With xWs
  .Cells(1, 1) = "Month"
  .Cells(1, 2) = "Count"
  .Cells(1, 1).Font.Bold = True
  .Cells(1, 2).Font.Bold = True
  .Cells(1, 1).HorizontalAlignment = xlCenter
  .Cells(1, 2).VerticalAlignment = xlCenter
End With
xMonths = GDictionary.Keys
xItemsCount = GDictionary.Items
For I = LBound(xMonths) To UBound(xMonths)
  xLastRow = xWs.Range("A" & xWs.Rows.Count).End(xlUp).Row + 1
  With xWs
    .Cells(xLastRow, 1) = xMonths(I)
    .Cells(xLastRow, 2) = xItemsCount(I)
  End With
Next
xWs.Columns("A:B").AutoFit
xExcelApp.Visible = True
Set xExcelApp = Nothing
Set xWb = Nothing
Set xWs = Nothing
End Sub

Sub ProcessFolders(ByVal Fld As Outlook.Folder)
Dim I As Long
Dim xMail As Outlook.MailItem
Dim xMonth As String
Dim xSubFolder As Folder
On Error Resume Next
For I = Fld.Items.Count To 1 Step -1
  If Fld.Items(I).Class = olMail Then
    Set xMail = Fld.Items(I)
    xMonth = Year(xMail.SentOn) & "/" & Month(xMail.SentOn)
    If GDictionary.Exists(xMonth) Then
      GDictionary(xMonth) = GDictionary(xMonth) + 1
    Else
      GDictionary.Add xMonth, 1
    End If
  End If
Next
If Fld.Folders.Count > 0 Then
  For Each xSubFolder In Fld.Folders
    Call ProcessFolders(xSubFolder)
  Next
End If
End Sub
Opmerking: In de code moet u het e-mailaccount “yy@addin99.com” wijzigen naar uw eigen account.

3. Nog steeds in het venster Microsoft Visual Basic for Applications, klik op Tools > References. Schakel in het dialoogvenster References-Project de optie Microsoft Excel 16.0 Object Library aan in de lijst met beschikbare referenties, zie screenshot:

doc-count-sent-emails-per-month-1

4. Klik vervolgens op OK om het dialoogvenster te sluiten en druk op de F5-toets om deze code uit te voeren. Vervolgens wordt een Excel-bestand geopend waarin de aantallen verzonden e-mails van elke maand voor het specifieke account worden weergegeven, zie screenshot:

doc-count-sent-emails-per-month-2

AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS

Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.
doc ai email handle

Deze functie ondersteunt:

  • Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
  • Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
  • Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
  • Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
  • Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
  • Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.

Deze functie ondersteunt:

  • Slimme e-mailreacties
  • Geoptimaliseerde inhoud
  • Op trefwoorden gebaseerde concepten
  • Intelligente inhoudsuitbreiding
  • E-mailsamenvatting
  • Meertalige vertaling

Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

kutools for outlook features1 kutools for outlook features2

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

  • ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
  • 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
  • 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint