Τρόπος μαζικής προσθήκης όλων των παραληπτών πολλαπλών μηνυμάτων ηλεκτρονικού ταχυδρομείου στις επαφές του Outlook

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

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

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

1. Αρχικά, ξεκινήστε το πρόγραμμα Outlook.
2. Στη συνέχεια, πατήστε τα πλήκτρα "Alt + F11" για πρόσβαση στο Outlook VBA eidtor.
3. Στη συνέχεια, στο παράθυρο "Microsoft Visual Basic for Applications", αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα σε μια κενή λειτουργική μονάδα.

Sub AddRecipientsToContacts()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress, strName As String
    Dim objContact As Outlook.ContactItem
 
    'Get the selected email
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    If Not (objSelection Is Nothing) Then
       On Error Resume Next
       For Each objMail In objSelection
           Set objRecipients = objMail.Recipients
           For Each objRecipient In objRecipients
               'Exclude yourself in recipient list
               If objRecipient <> Session.CurrentUser Then
                  'Get the email address & name
                  strEmailAddress = objRecipient.Address
                  strName = Split(strEmailAddress, "@")(0)
                  strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))
 
                  'Create a new contact for this recipient
                  Set objContact = Outlook.Application.CreateItem(olContactItem)
                  With objContact
                      .FullName = strName
                      .Email1Address = strEmailAddress
                      .Email1DisplayName = .FullName & " (" & strEmailAddress & ")"
                      .Save
                 End With
               End If
           Next
       Next
    End If
End Sub

4. Μετά από αυτό, ελαχιστοποιήστε ή βγείτε από αυτό το παράθυρο.
5. Αργότερα, θα πρέπει να προσθέσετε αυτήν τη μακροεντολή στη Γραμμή εργαλείων γρήγορης πρόσβασης με αναφορά στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
6. Τέλος, μπορείτε να δοκιμάσετε αυτήν τη μακροεντολή.

• Αρχικά, επιλέξτε πολλά email των οποίων οι παραλήπτες θα προστεθούν στις επαφές.
• Στη συνέχεια, κάντε κλικ στο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
• Όταν ολοκληρωθεί η μακροεντολή, μπορείτε να μεταβείτε στον προεπιλεγμένο φάκελο "Επαφές". Αυτοί οι παραλήπτες έχουν προστεθεί.
• Η νέα επαφή θα μοιάζει με το ακόλουθο στιγμιότυπο οθόνης.

Δείτε όλους τους κινδύνους γύρω από το Outlook

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

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

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