Kako promijeniti formate prikaza imena e-pošte svih vaših kontakata u grupama pomoću Outlook VBA

Outlook će prikazati sve e-poruke za kontakte u svom zadanom formatu imena za prikaz, odnosno "puno ime (adresa e-pošte)". Ako vam se ne sviđa, morat ćete ga ručno promijeniti svaki put kada kreirate nove kontakte. Ovaj članak će vas naučiti kako da ih brzo promijenite u serijama pomoću Outlook VBA.

Kada kreirate novi Outlook kontakt, nakon što unesete puno ime i adresu e-pošte, a zatim kliknete na okvir „Prikaži kao“, automatski će se popuniti zadano ime za prikaz, prikazano na sljedećem snimku ekrana:

Ovo ime za prikaz e-pošte će imati efekte kada trebate odabrati kontakt. Kao na slici ispod, 2^nd kolona “Prikaži ime” odgovara informacijama u polju “Prikaži kao”.

Kada želite promijeniti format prikaza imena e-pošte, morate ga promijeniti ručno. Ali uz pomoć VBA, možete promijeniti format prikaza imena svih kontakata u željeni format u grupama.

Promijenite formate prikaza imena e-pošte za sve svoje kontakte u grupama

1. Prvo, pokrenite Outlook i pritisnite tipke “Alt + F11” da biste pristupili prozoru “Visual Basic”.
2. Zatim otvorite novi modul i kopirajte sljedeće VBA kodove u njega.

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

Dodatni savjeti:

• Možete promijeniti redoslijed između "puno ime", "ime kompanije" i "e-mail adresa" prema vašim željama.
• ".Puno ime” se odnosi na format u “Ime Prezime”. Ako želite da se prikaže u "Prezime Ime", koristite ".LastNameAndFirstName”Umjesto toga.

3. Nakon toga, nakon lijepljenja VBA kodova, trebali biste dodati novi makro na alatnu traku za brzi pristup. Slijedite dolje navedene korake:

• Prvo, vratite se na glavni Outlook prozor i pritisnite strelicu nadole na traci sa alatkama za brzi pristup.
• Sa padajuće liste izaberite „Više komandi“.
• Zatim u prozoru „Opcije Outlooka“ trebate odabrati „Makroi“ u polju „Izaberite komande iz“.
• Nakon toga, postavite kursor na ciljni makro i pritisnite dugme „Dodaj“ u sredini.
• Na kraju kliknite na dugme “OK”.

4. Na kraju se možete vratiti u svoju zadanu mapu kontakata. Kliknite na dugme makro na traci sa alatkama za brzi pristup. Nakon toga možete otvoriti jedan kontakt da provjerite. Vidjet ćete da je format imena za prikaz e-pošte promijenjen.

Escape from Outlook Data Loss

Kao što svi znamo, Outlook je podložan greškama, oštećenjima. Stoga je težak zadatak čuvati Outlook podatke zaštićenim i spriječiti gubitak podataka. Stoga biste trebali redovno praviti rezervnu kopiju svojih Outlook podataka, što će mnogo doprinijeti Oporavak od oštećenja podataka Outlook u slučaju pada Outlooka. Takođe, neophodno je nabaviti moćan alat za popravku, kao što je DataNumen Outlook Repair. Sve u svemu, dobro će doći ako rezervna kopija nije aktuelna ili ne daje efekte.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Popravak SQL Server oštećenje baze podataka mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com