Kako spremeniti oblike prikaznih imen e-pošte za vse svoje stike v paketih z Outlookom VBA

Outlook bo vse kontaktne e-poštne naslove prikazal v privzeti obliki prikazanega imena, in sicer »polno ime (e-poštni naslov)«. Če vam ni všeč, ga boste morali ročno spremeniti vsakič, ko ustvarjate nove stike. Ta članek vas bo naučil hitrega načina, kako jih spremeniti v serijah z Outlook VBA.

Ko ustvarite nov Outlookov stik, potem ko vnesete polno ime in e-poštni naslov ter nato kliknete v polje »Prikaži kot«, bo samodejno izpolnjeno privzeto prikazano ime, prikazano kot naslednji posnetek zaslona:

To e-poštno prikazno ime bo učinkovalo, ko boste morali izbrati stik. Tako kot spodnja slika, 2^nd stolpec »Prikazno ime« ustreza informacijam v polju »Prikaži kot«.

Ko želite spremeniti obliko prikazanega imena e-pošte, jo morate spremeniti ročno. Toda s pomočjo VBA lahko spremenite obliko prikaznega imena vseh stikov v želeno obliko v serijah.

Spremenite formate prikaznih imen e-pošte za vse svoje stike v paketih

1. Najprej zaženite Outlook in pritisnite tipke »Alt + F11« za dostop do okna »Visual Basic«.
2. Nato odprite nov modul in vanj kopirajte naslednje kode 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

Dodatni nasveti:

• Vrstni red med »polno ime«, »ime podjetja« in »e-poštni naslov« lahko spremenite po svojih željah.
• ".Polno ime« se nanaša na obliko v »Ime Priimek«. Če želite prikazati v »Priimek Ime«, uporabite ».PriimekInIme«Namesto tega.

3. Potem, ko prilepite kode VBA, dodajte nov makro v orodno vrstico za hitri dostop. Sledite spodnjim korakom:

• Najprej se vrnite v glavno Outlookovo okno in pritisnite puščico navzdol v orodni vrstici za hitri dostop.
• Na spustnem seznamu izberite »Več ukazov«.
• Nato v oknu »Outlook Options« izberite »Macros« v polju »Choose commands from«.
• Nato se usmerite na ciljni makro in pritisnite gumb »Dodaj« na sredini.
• Na koncu kliknite gumb »V redu«.

4. Sčasoma se lahko vrnete v privzeto mapo s stiki. Kliknite gumb makra v orodni vrstici za hitri dostop. Po tem lahko odprete en stik za preverjanje. Ugotovili boste, da je bila oblika prikazanega imena e-pošte spremenjena.

Pobeg pred izgubo podatkov v Outlooku

Kot vsi vemo, je Outlook dovzeten za napake in poškodbe. Zato je ohranjanje zaščite Outlookovih podatkov in preprečevanje izgube podatkov težka naloga. Zato bi morali redno varnostno kopirati svoje Outlookove podatke, kar bo veliko prispevalo k Outlook obnovitev poškodovanih podatkov v primeru zrušitve Outlooka. Prav tako je nujno, da dobite močno orodje za popravilo, kot je npr DataNumen Outlook Repair. Skratka, to bo prišlo prav, če varnostna kopija ni aktualna ali ne daje učinkov.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo SQL Server poškodba baze podatkov mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com