Outlook va afișa toate e-mailurile de contact în formatul implicit al numelui afișat, și anume „nume complet (adresă de e-mail)”. Dacă nu vă place, va trebui să îl schimbați manual de fiecare dată când creați contacte noi. Acest articol vă va învăța o modalitate rapidă de a le modifica în loturi cu Outlook VBA.
Când creați o nouă persoană de contact Outlook, după ce introduceți numele complet și adresa de e-mail și apoi faceți clic în caseta „Afișare ca”, numele afișat implicit va fi completat automat, afișat ca următoarea captură de ecran:
Acest nume afișat de e-mail va avea efecte atunci când trebuie să selectați un contact. La fel ca imaginea de mai jos, 2nd coloana „Nume afișat” corespunde informațiilor din câmpul „Afișare ca”.
Când doriți să schimbați formatul numelui afișat pentru e-mail, trebuie să îl schimbați manual. Dar, cu ajutorul VBA, puteți schimba formatul numelui afișat de e-mail al tuturor persoanelor de contact în formatul dorit în loturi.
Schimbați formatele de nume afișate pentru e-mail ale tuturor persoanelor de contact în loturi
- În primul rând, lansați Outlook și apăsați butoanele tastei „Alt + F11” pentru a accesa fereastra „Visual Basic”.
- Apoi deschideți un nou modul și copiați următoarele coduri VBA în el.
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
Sfaturi suplimentare:
- Puteți schimba ordinea între „nume complet”, „nume companie” și „adresă de e-mail”, după preferință.
- ".Numele complet” se referă la formatul din „Prenume Nume”. Dacă doriți să afișați în „Nume Prenume”, utilizați „.LastNumeAndFirstNume" in schimb.
- Ulterior, după lipirea codurilor VBA, ar trebui să adăugați noua macrocomandă în Bara de instrumente Acces rapid. Urmați pașii de mai jos:
- În primul rând, reveniți la fereastra principală Outlook și apăsați săgeata în jos din Bara de instrumente Acces rapid.
- Din lista derulantă, alegeți „Mai multe comenzi”.
- Apoi, în fereastra „Opțiuni Outlook”, ar trebui să selectați „Macrocomenzi” în caseta „Alege comenzi din”.
- Ulterior, plasați butonul pe macrocomanda țintă și apăsați butonul „Adăugare” din centru.
- În sfârșit, faceți clic pe butonul „OK”.
- În cele din urmă, puteți reveni la folderul implicit de contact. Faceți clic pe butonul macro din Bara de instrumente Acces rapid. După aceea, puteți deschide o persoană de contact pentru a verifica. Veți descoperi că formatul numelui afișat pentru e-mail a fost modificat.
Scăpa de pierderea datelor Outlook
După cum știm cu toții, Outlook este susceptibil la erori, corupții. Prin urmare, este o sarcină grea să păstrați datele Outlook protejate și să preveniți pierderea datelor. Deci, ar trebui să faceți o copie de rezervă regulată pentru datele dvs. Outlook, ceea ce va contribui foarte mult la Recuperarea daunelor datelor Outlook în caz de blocare a Outlook. De asemenea, este esențial să obțineți un instrument de reparare puternic, cum ar fi DataNumen Outlook Repair. Una peste alta, va fi util dacă backup-ul nu este actual sau nu reușește să facă efecte.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara SQL Server deteriorarea bazei de date mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com