2 Μέθοδοι για γρήγορη καταμέτρηση μηνυμάτων ηλεκτρονικού ταχυδρομείου από αποστολέα στο Outlook σας

Εάν θέλετε να μετρήσετε τα email ανά αποστολέα, μπορείτε να ανατρέξετε σε αυτό το άρθρο. Εδώ θα σας εκθέσουμε 2 γρήγορες προσεγγίσεις.

Για να μάθετε τον πιο ενεργό αποστολέα για εσάς, ίσως θελήσετε να μετρήσετε τα email ανά αποστολέα. Παρόλο που το Outlook δεν παρέχει άμεση λειτουργία για αυτό, μπορείτε να αναζητήσετε κάποιες λύσεις, όπως η ακόλουθη Μέθοδος 1. Εάν πιστεύετε ότι η Μέθοδος 1 είναι πολύ κουραστική, μπορείτε να επιλέξετε τη Μέθοδο 2. Είναι πολύ πιο αποτελεσματική, καθώς χρησιμοποιεί VBA για γρήγορη καταμέτρηση email ανά αποστολέα και εξαγωγή των μετρήσεων στο Excel. Τώρα διαβάστε λεπτομερώς τους δύο τρόπους. Εδώ θα πάρουμε τα email στα Εισερχόμενα ως παράδειγμα.

Μέθοδος 1: Λάβετε μετρήσεις μετά την ομαδοποίηση αντικειμένων κατά πεδίο "Από".

1. Αρχικά, ξεκινήστε την εφαρμογή Outlook.
2. Στη συνέχεια, ανοίξτε το φάκελο εισερχομένων.
3. Στη συνέχεια, μεταβείτε στην καρτέλα "Προβολή".
4. Στη συνέχεια, επιλέξτε «Από» στην ομάδα «Διευθέτηση».
5. Ταυτόχρονα, όλα τα στοιχεία εισερχομένων έχουν χωριστεί σε διαφορετικές ομάδες ανάλογα με τους διαφορετικούς αποστολείς.
6. Τώρα, για να μετρήσετε τα στοιχεία από έναν συγκεκριμένο αποστολέα, μπορείτε να επιλέξετε όλα τα στοιχεία στη σχετική ομάδα και να πατήσετε το πλήκτρο «Enter». Στην αναδυόμενη προειδοποίηση, μπορείτε να δείτε την καταμέτρηση.

Αυτό το μέσο είναι αρκετά εύκολο, αλλά οι μετρήσεις αντικειμένων περιλαμβάνουν στην πραγματικότητα τους άλλους τύπους αντικειμένων, όπως προσκλήσεις σε συσκέψεις, αιτήματα εργασιών και αποδείξεις, όχι μόνο μετρήσεις email. Επομένως, εάν θέλετε να μετράτε μόνο τα μηνύματα ηλεκτρονικού ταχυδρομείου, μπορείτε να χρησιμοποιήσετε τον ακόλουθο τρόπο.

Μέθοδος 2: Μετρήστε τα μηνύματα ηλεκτρονικού ταχυδρομείου από τον αποστολέα με το Outlook VBA

1. Για αρχή, πατήστε τα πλήκτρα "Alt + F11" στο Outlook.
2. Στη συνέχεια, ενεργοποιήστε τη «Βιβλιοθήκη αντικειμένων MS Excel» σύμφωνα με το «Πώς να προσθέσετε μια αναφορά βιβλιοθήκης αντικειμένων σε VBA".
3. Στη συνέχεια, αντιγράψτε τον παρακάτω κώδικα σε μια μονάδα που δεν χρησιμοποιείται.

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. Μετά από αυτό, πατήστε το πλήκτρο "F5".
4. Όταν ολοκληρωθεί η μακροεντολή, θα εμφανιστεί ένα νέο αρχείο Excel.
5. Όπως μπορείτε να δείτε, περιέχει τον αριθμό των email εισερχομένων από διαφορετικούς αποστολείς.

Απορρίψτε τα απογοητευτικά προβλήματα του Outlook

Ίσως έχετε αντιμετωπίσει πολλά προβλήματα στο Outlook σας. Για να τα αντιμετωπίσετε αποτελεσματικά, μπορεί να λαχταράτε έναν ευέλικτο και δυνατό τρόπο. Ωστόσο, στην πραγματικότητα, δεν υπάρχει τέτοια μέθοδος. Αυτό που μπορείτε να κάνετε είναι να προσέχετε τις δικές σας λειτουργίες στο Outlook και να δημιουργείτε τακτικά αντίγραφα ασφαλείας. Φυσικά, αν είναι δυνατόν, προτείνουμε να έχετε καλύτερα ένα έμπειρο εργαλείο επιδιόρθωσης, όπως π.χ DataNumen Outlook Repair. Μπορεί να διορθώσει διάφορα ζητήματα PST και να επιδιορθώσει κατεστραμμένο PST αρχείο σαν ένα αεράκι.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση Sql Server και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com