Κατά καιρούς, μπορεί να θέλετε να υπολογίσετε τον συνολικό αριθμό των παραληπτών σε ένα συγκεκριμένο email. Αλλά το Outlook δεν έχει προφανή λειτουργία "μέτρησης" για να το υποστηρίξει. Αυτό το άρθρο λοιπόν θα εισαγάγει 2 προσεγγίσεις για να το πετύχετε.
Σε ορισμένες περιπτώσεις, για παράδειγμα, όταν έχετε προσθέσει μεγάλο αριθμό παραληπτών σε ένα email και δυσκολεύεστε να τους διαχειριστείτε, θα θέλατε να λάβετε τον συνολικό αριθμό αυτών των παραληπτών. Αλλά το Outlook δεν έχει εγγενή ή προεπιλεγμένη υποστήριξη για να μετρήσει. Επομένως, πρέπει να κάνετε κάποιες επιπλέον προσπάθειες για να το πετύχετε. Εδώ θα σας πούμε 2 μεθόδους.
Μέθοδος 1: Μετρήστε τον αριθμό των παραληπτών μέσω της ομάδας επαφής
- Αρχικά, θα πρέπει να επιλέξετε όλους τους παραλήπτες στα πεδία "Προς", "Κοιν." και "Ιδιαίτερη Κοιν." και να τους αντιγράψετε στον κενό χώρο στο σώμα του μηνύματος.

- Στη συνέχεια επιλέξτε όλους τους παραλήπτες στο σώμα και αντιγράψτε τους επίσης.
- Στη συνέχεια, μεταβείτε στο παράθυρο Επαφές του Outlook και πατήστε "Νέα ομάδα επαφών". Στο αναδυόμενο παράθυρο, ορίστε το όνομα ως "Temp" και, στη συνέχεια, κάντε κλικ στο "Add Members" και επιλέξτε "From Address Book" από την αναπτυσσόμενη λίστα.
- Στη συνέχεια, επικολλήστε τους παραλήπτες που αντιγράφηκαν προηγουμένως στο πεδίο "Μέλος ->", όπως το ακόλουθο στιγμιότυπο οθόνης:
- Μετά από αυτό, κάντε κλικ στο κουμπί "OK" και επιστρέψτε στην Ομάδα Επαφών. Όλα τα διπλότυπα θα αφαιρεθούν αυτόματα. Τώρα αποθηκεύστε το στον τοπικό δίσκο ως αρχείο "Κείμενο".
- Αργότερα ανοίξτε το αρχείο κειμένου και αφαιρέστε την άχρηστη κεφαλίδα, όπως η παρακάτω εικόνα:
- Τέλος, μπορείτε να τοποθετήσετε τον κέρσορα στην τελευταία γραμμή. Θα δείτε τον συνολικό αριθμό των γραμμών στη γραμμή κατάστασης. Αυτός είναι ο συνολικός αριθμός των παραληπτών.
Μέθοδος 2: Μετρήστε τον αριθμό των παραληπτών με το Outlook VBA
- Αρχικά, πατήστε τα πλήκτρα "Alt + F11" για πρόσβαση στο παράθυρο "Visual Basic".
- Στη συνέχεια, αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA σε μια νέα μονάδα.
Sub CountRecipients()
Dim obApp As Outlook.Application
Dim olSel As Selection
Dim olItem As MailItem
Dim Recips As Recipients
Dim strMsg As String
Dim nRes As Integer
Set obApp = Outlook.Application
If TypeName(obApp.ActiveWindow) = "Inspector" Then
Set olItem = obApp.ActiveInspector.CurrentItem
Set Recips = olItem.Recipients
strMsg = "The current message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
Else
Set olItem = obApp.ActiveExplorer.Selection.Item(1)
Set Recips = olItem.Recipients
strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
End If
Set obApp = Nothing
Set olSel = Nothing
Set olItem = Nothing
Set Recips = Nothing
End Sub
- Μετά από αυτό, μπορείτε να βγείτε από το παράθυρο "Visual Basic" και να προσθέσετε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης του κύριου παραθύρου του Outlook και στο παράθυρο μηνυμάτων.
- Τελικά μπορείτε να δοκιμάσετε:
- Όταν επιλέγετε ένα email και πατάτε το κουμπί στη γραμμή εργαλείων γρήγορης πρόσβασης, θα λάβετε ένα μήνυμα όπως η παρακάτω εικόνα:
- Όταν ανοίγετε ένα email και κάνετε κλικ στο κουμπί, θα εμφανιστεί ένα παράθυρο διαλόγου, που φαίνεται στην παρακάτω εικόνα:
Σημείωση: Αυτή η μέθοδος θα αντιμετωπίσει μια ομάδα επαφών ως έναν παραλήπτη και δεν θα παρακάμψει τους διπλότυπους παραλήπτες.
Καταπολέμηση επικίνδυνων μακροεντολών
Όπως όλοι γνωρίζουμε, οι ιοί που μεταδίδονται μέσω email αποτελούν μια από τις πιο συνηθισμένες απειλές για τα δεδομένα. Επομένως, είναι ζωτικής σημασίας να ρυθμίσετε το Outlook μόνο ώστε να ενεργοποιεί τις ψηφιακά υπογεγραμμένες μακροεντολές, οι οποίες μπορούν να αποκλείσουν ιούς και κακόβουλο λογισμικό. Επιπλέον, καλό είναι να διατηρείτε ένα ισχυρό... κατεστραμμένο βοηθητικό πρόγραμμα επιδιόρθωσης αρχείων του Outlook, Όπως DataNumen Outlook Repair. Θα σας φανεί χρήσιμο όταν το Outlook σας υποστεί μόλυνση από ιό ή επίθεση κακόβουλου λογισμικού.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση σφάλματος δεδομένων SQL mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com






