Το Outlook θα εμφανίσει όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου επικοινωνίας με την προεπιλεγμένη μορφή εμφάνισης, δηλαδή "πλήρες όνομα (διεύθυνση email)". Εάν δεν σας αρέσει, θα πρέπει να το αλλάζετε χειροκίνητα κάθε φορά κατά τη δημιουργία νέων επαφών. Αυτό το άρθρο θα σας διδάξει έναν γρήγορο τρόπο να τα αλλάξετε σε παρτίδες με το Outlook VBA.
Όταν δημιουργείτε μια νέα επαφή του Outlook, αφού εισαγάγετε το πλήρες όνομα και τη διεύθυνση email και, στη συνέχεια, κάντε κλικ στο πλαίσιο "Εμφάνιση ως", το προεπιλεγμένο εμφανιζόμενο όνομα θα συμπληρωθεί αυτόματα, εμφανίζεται ως το ακόλουθο στιγμιότυπο οθόνης:
Αυτό το εμφανιζόμενο όνομα email θα κάνει εφέ όταν πρέπει να επιλέξετε μια επαφή. Όπως η παρακάτω εικόνα, το 2nd Η στήλη "Εμφάνιση ονόματος" αντιστοιχεί στις πληροφορίες στο πεδίο "Εμφάνιση ως".
Όταν θέλετε να αλλάξετε τη μορφή του ονόματος εμφάνισης email, πρέπει να την αλλάξετε χειροκίνητα. Αλλά με τη βοήθεια του VBA, μπορείτε να αλλάξετε τη μορφή του ονόματος εμφάνισης email όλων των επαφών στην επιθυμητή μορφή σε παρτίδες.
Αλλαγή των μορφών ονόματος εμφάνισης email όλων των επαφών σας σε παρτίδες
- Πρώτα, ξεκινήστε το Outlook και πατήστε τα πλήκτρα "Alt + F11" για πρόσβαση στο παράθυρο "Visual Basic".
- Στη συνέχεια, ανοίξτε μια νέα ενότητα και αντιγράψτε τους ακόλουθους κωδικούς VBA σε αυτήν.
Sub BatchChangeContactDisplayName()
Dim obApp As Application
Dim olContacts As Outlook.Items
Dim obj As Object
Dim oContact As Outlook.ContactItem
Dim strName As String
Set olContacts = Session.GetDefaultFolder(olFolderContacts).Items
For Each obj In olContacts
If TypeName(obj) = "ContactItem" Then
Set oContact = obj
With oContact
'Display name format: "fullname (company name)(email address)"
strName = .FullName & " (" & .CompanyName & ")" & " (" & .Email1Address & ") "
.Email1DisplayName = strName
.Save
End With
End If
Next
End Sub
Επιπλέον συμβουλές:
- Μπορείτε να αλλάξετε τη σειρά μεταξύ "πλήρες όνομα", "όνομα εταιρείας" και "διεύθυνση email" σύμφωνα με τις προτιμήσεις σας.
- Ο ".Πλήρες όνομα"Αναφέρεται στη μορφή στο" Όνομα Επώνυμο ". Αν θέλετε να εμφανιστεί στο "Επώνυμο Όνομα", χρησιμοποιήστε το ".ΕπώνυμοΚαι Όνομα" αντι αυτου.
- Στη συνέχεια, αφού επικολλήσετε τους κωδικούς VBA, θα πρέπει να προσθέσετε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης. Ακολουθήστε τα παρακάτω βήματα:
- Αρχικά, επιστρέψτε στο κύριο παράθυρο του Outlook και πατήστε το κάτω βέλος στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Από την αναπτυσσόμενη λίστα, επιλέξτε "Περισσότερες εντολές".
- Στη συνέχεια, στο παράθυρο "Επιλογές Outlook", θα πρέπει να επιλέξετε "Μακροεντολές" στο πλαίσιο "Επιλογή εντολών από".
- Στη συνέχεια, τοποθετήστε την κίνηση στη μακροεντολή-στόχο και πατήστε το κουμπί «Προσθήκη» στο κέντρο.
- Τέλος κάντε κλικ στο κουμπί "OK".
- Τελικά μπορείτε να επιστρέψετε στον προεπιλεγμένο φάκελο επαφών σας. Κάντε κλικ στο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης. Μετά από αυτό, μπορείτε να ανοίξετε μια επαφή για έλεγχο. Θα διαπιστώσετε ότι η μορφή εμφανιζόμενου ονόματος email έχει αλλάξει.
Αποδράστε από την απώλεια δεδομένων του Outlook
Όπως όλοι γνωρίζουμε, το Outlook είναι ευαίσθητο σε σφάλματα, αλλοιώσεις. Επομένως, είναι δύσκολο έργο να διατηρήσετε τα δεδομένα του Outlook προστατευμένα και να αποτρέψετε την απώλεια δεδομένων. Επομένως, θα πρέπει να δημιουργήσετε ένα κανονικό αντίγραφο ασφαλείας για τα δεδομένα σας στο Outlook, το οποίο θα συμβάλει πολύ Ανάκτηση ζημιών δεδομένων του Outlook σε περίπτωση διακοπής λειτουργίας του Outlook. Επίσης, είναι σημαντικό να αποκτήσετε ένα ισχυρό εργαλείο επισκευής, όπως DataNumen Outlook Repair. Συνολικά, θα είναι χρήσιμο εάν το αντίγραφο ασφαλείας δεν είναι τρέχον ή δεν κάνει εφέ.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή SQL Server ζημιά στη βάση δεδομένων MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com