Kaip pakeisti visų savo kontaktų el. pašto rodomų vardų formatus paketuose naudojant „Outlook VBA“.

„Outlook“ visus kontaktinius el. laiškus rodys numatytuoju rodomo vardo formatu, būtent „visas vardas (el. pašto adresas)“. Jei jums tai nepatinka, kiekvieną kartą kurdami naujus kontaktus turėsite jį pakeisti rankiniu būdu. Šis straipsnis išmokys jus greitai pakeisti juos paketais naudojant „Outlook VBA“.

Kai sukuriate naują „Outlook“ kontaktą, įvedę visą vardą ir el. pašto adresą, tada spustelėję laukelį „Rodyti kaip“, numatytasis rodomas vardas bus automatiškai užpildytas, kaip parodyta tokia ekrano kopija:

Šis rodomas el. pašto vardas turės poveikį, kai reikės pasirinkti kontaktą. Kaip ir toliau pateiktame paveikslėlyje, 2^nd stulpelis „Rodymo pavadinimas“ atitinka informaciją lauke „Rodyti kaip“.

Jei norite pakeisti el. pašto rodomo vardo formatą, turite jį pakeisti rankiniu būdu. Tačiau naudodamiesi VBA galite paketais pakeisti visų kontaktų el. pašto vardo formatą į norimą formatą.

Pakeiskite visų savo adresatų paketų rodomo el. pašto vardo formatus

1. Pirmiausia paleiskite „Outlook“ ir paspauskite „Alt + F11“ klavišus, kad pasiektumėte „Visual Basic“ langą.
2. Tada atidarykite naują modulį ir nukopijuokite į jį šiuos VBA kodus.

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

Papildomi patarimai:

• Galite pakeisti užsakymą iš „pilnas vardas“, „įmonės pavadinimas“ ir „el. pašto adresas“ pagal savo pageidavimus.
• ".Pilnas vardas“ reiškia formatą „Vardas Pavardė“. Jei norite rodyti „Pavardė Vardas“, naudokite „.PavardėIr VardasVietoj to.

3. Vėliau, įklijavę VBA kodus, turėtumėte pridėti naują makrokomandą prie greitosios prieigos įrankių juostos. Atlikite toliau nurodytus veiksmus.

• Pirmiausia grįžkite į pagrindinį „Outlook“ langą ir greitosios prieigos įrankių juostoje paspauskite rodyklę žemyn.
• Išskleidžiamajame sąraše pasirinkite „Daugiau komandų“.
• Tada lange „Outlook Options“ turėtumėte pasirinkti „Makrokomandos“ laukelyje „Pasirinkti komandas iš“.
• Vėliau pasirinkite tikslinę makrokomandą ir paspauskite mygtuką „Pridėti“ centre.
• Galiausiai spustelėkite mygtuką „Gerai“.

4. Galiausiai galite grįžti į numatytąjį kontaktų aplanką. Greitos prieigos įrankių juostoje spustelėkite makrokomandos mygtuką. Po to galite atidaryti vieną kontaktą ir patikrinti. Pamatysite, kad el. pašto rodomo vardo formatas buvo pakeistas.

Pabėgkite nuo „Outlook“ duomenų praradimo

Kaip visi žinome, „Outlook“ yra jautri klaidoms ir pažeidimams. Todėl apsaugoti „Outlook“ duomenis ir užkirsti kelią duomenų praradimui yra sudėtinga užduotis. Taigi turėtumėte reguliariai kurti „Outlook“ duomenų atsarginę kopiją, kuri labai prisidės „Outlook“ duomenų žalos atkūrimas „Outlook“ gedimo atveju. Be to, būtina įsigyti galingą remonto įrankį, pvz DataNumen Outlook Repair. Apskritai, tai bus naudinga, jei atsarginė kopija nebus dabartinė arba neduos efektų.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas SQL Server Mdf duomenų bazės pažeidimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com