2 Μέθοδοι μέτρησης των μελών στην ομάδα επαφών του Outlook

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

Στην πραγματικότητα, με όλο και περισσότερες επαφές που προστίθενται σε μια ομάδα επαφών, θα αισθανθείτε δύσκολο να διαχειριστείτε και να ελέγξετε. Σε αυτό το σημείο, ίσως ελπίζετε να μάθετε πόσα μέλη περιέχει η ομάδα επαφών. Ωστόσο, το Outlook δεν συνοδεύεται από μια εγγενή δυνατότητα για καταμέτρηση. Έτσι, πρέπει να κάνετε χρήση άλλων μέσων. Εδώ θα παρουσιάσουμε λεπτομερώς δύο μεθόδους.

Μέθοδος 1: Αποθηκεύστε την ομάδα επαφών ως αρχείο κειμένου

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

Μέθοδος 2: Δημιουργήστε ένα κουμπί "Count" με το Outlook VBA

1. Αρχικά, μεταβείτε στην καρτέλα "Προγραμματιστής" και κάντε κλικ στο κουμπί "Visual Basic".
2. Στη συνέχεια, ανοίξτε μια νέα ενότητα και αντιγράψτε τους ακόλουθους κωδικούς VBA σε αυτήν.

Sub CountContactGroupMember()
    Dim obApp As Application
    Dim olSel As Selection
    Dim ConGroup As DistListItem
    Dim strMsg As String
    Dim nRes As Integer
 
    Set obApp = Outlook.Application
    Set olSel = obApp.ActiveExplorer.Selection
 
    If olSel.Count Then
       Set ConGroup = olSel.Item(1)
       strMsg = "This contact group " & Chr(34) & ConGroup.DLName & Chr(34) & " includes " & ConGroup.MemberCount & " members in total."
       nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Contact Group Members")
    End If
End Sub

3. Μετά από αυτό, βγείτε από το παράθυρο "Visual Basic" και μετά προχωρήστε για να προσθέσετε τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης. Μπορείτε να μεταβείτε στο "Αρχείο"> "Επιλογές"> "Γραμμή εργαλείων γρήγορης πρόσβασης" για να το επιτύχετε σε γρήγορο χρόνο.
4. Τελικά, μπορείτε να επιστρέψετε στο παράθυρο "Επαφές". Στη συνέχεια, επιλέξτε την ομάδα επαφών και πατήστε το κουμπί στη Γραμμή εργαλείων γρήγορης πρόσβασης. Θα εμφανιστεί ένα νέο μήνυμα. Θα σας πει τον αριθμό των μελών στην ομάδα επαφών. Μοιάζει με το ακόλουθο στιγμιότυπο οθόνης:

Σύγκριση των 2 μεθόδων

Διατηρήστε εύχρηστο το εργαλείο επιδιόρθωσης του Outlook

Λόγω του γεγονότος ότι το Outlook είναι ευαίσθητο σε σφάλματα και αλλοιώσεις, συνιστάται ιδιαίτερα να κάνετε τακτικά αντίγραφα ασφαλείας για τα δεδομένα του Outlook. Επομένως, θα είστε σε θέση ανακτήστε κατεστραμμένη αλληλογραφία Outlook με απόλυτη ευκολία. Επιπλέον, καλό θα ήταν να βρείτε ένα έμπειρο εργαλείο επισκευής, όπως DataNumen Outlook Repair. Θα είναι χρήσιμο όταν αντιμετωπίσετε ένα σοβαρό σφάλμα στο Outlook.

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

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