Hoe u snel het totale aantal e-mails van een specifieke afzender in Outlook kunt ophalen

Soms wilt u misschien het totale aantal e-mails van een specifieke afzender in Outlook tellen. Dit artikel introduceert een handige manier om snel het totale aantal te krijgen met Outlook VBA.

Om sommige redenen, zoals gegevensstatistieken, moet u mogelijk het totale aantal e-mails van een specifieke afzender tellen. Als u meerdere e-mails heeft, zal het ongetwijfeld lastig zijn om ze één voor één handmatig te tellen en foutgevoelig te zijn. Waarom zou u in dit geval niet terugkeren naar VBA? Hier zijn de gedetailleerde bewerkingen en volgens VBA-codes.

Verkrijg het totale aantal e-mails van een specifieke afzender in een bepaalde map

1. Vanaf het allereerste begin start Outlook en ga naar het tabblad "Ontwikkelaar".
2. Klik vervolgens op de knop "Visual Basic" onder dit tabblad.
3. Vervolgens kunt u in het pop-upvenster “Microsoft Visual Basic for Applications” een module openen die niet in gebruik is en vervolgens de volgende VBA-codes erin kopiëren.

Sub CountEmailsfromSpecificSenderinCurrentFolder()
    Dim objSelection As Selection
    Dim objSelectedMail As MailItem
    Dim strSenderEmailAddress As String
    Dim objCurrentFolder As Folder
    Dim objItem As Object
    Dim objVariant As Variant
    Dim i As Long
    Dim strPrompt As String
    Dim nResponse As Integer
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    i = 0

    If TypeOf objSelection.Item(1) Is MailItem Then
 
       Set objSelectedMail = objSelection.Item(1)
       strSenderEmailAddress = objSelectedMail.SenderEmailAddress
       Set objCurrentFolder = Outlook.Application.ActiveExplorer.CurrentFolder
 
       For Each objItem In objCurrentFolder.Items
           Set objVariant = objItem
           If (objVariant.Class = olMail) And (objVariant.SenderEmailAddress = strSenderEmailAddress) Then
              i = i + 1
           End If
       Next
    End If
 
    strPrompt = "There are " & i & " emails from " & objSelectedMail.SenderName & " in the current " & objCurrentFolder.Name & " folder."
    nResponse = MsgBox(strPrompt, vbOKOnly + vbInformation, "Count Emails from Specific Sender")
End Sub

4. Sluit vervolgens het huidige venster om terug te keren naar het hoofdscherm van Outlook.
5. Daarna kunt u doorgaan met het toevoegen van de nieuwe macro aan de werkbalk Snelle toegang.

• Klik eerst op de pijl omlaag in de werkbalk Snelle toegang en selecteer "Meer opdrachten".
• En voeg vervolgens de macro toe aan de werkbalk Snelle toegang door de stappen in de volgende afbeelding te volgen.

6. Eindelijk kunt u deze knop proberen.

• Open eerst een bepaalde map en selecteer een e-mail van de specifieke afzender.
• Klik vervolgens op de knop in de werkbalk Snelle toegang.
• Ten slotte ontvangt u een bericht met het aantal e-mails van de specifieke afzender in de huidige map.

Doorloop alle submappen recursief

Het bovenstaande deel laat u zien hoe u het totale aantal e-mailitems van een specifieke afzender in één e-mailmap kunt krijgen. Als u veel submappen onder Inbox heeft en u wilt ook de ontvangen e-mails opnemen in de submappen, dan moet u al deze submappen recursief opsommen. In dat geval kunt u verwijzen naar een ander artikel in onze blog - "Recursief door een mappenboom bladeren in Outlook via VBA'.

Vertrouw nooit op onbetrouwbare Outlook-reparatietool

Omdat Outlook foutgevoelig is, wennen veel gebruikers eraan om een Outlook-foutherstelprogramma handig. Maar in de huidige markt zijn er te veel van dergelijke onbetrouwbare tools. U moet dus voorzichtig zijn bij het selecteren van een exemplaar. Zodra u de fouten probeert op te lossen via een onbetrouwbare tool, is de kans groot dat dit tot ergere situaties zal leiden.

Auteur Introductie:

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