Kā mainīt visu jūsu kontaktu e-pasta parādāmā vārda formātus ar Outlook VBA

Outlook parādīs visus kontaktpersonu e-pastus noklusējuma parādāmā vārda formātā, proti, “pilns vārds (e-pasta adrese)”. Ja tas jums nepatīk, katru reizi, veidojot jaunus kontaktus, tas būs jāmaina manuāli. Šis raksts iemācīs jums ātru veidu, kā tos mainīt partijās, izmantojot programmu Outlook VBA.

Kad izveidojat jaunu Outlook kontaktpersonu, pēc pilnā vārda un e-pasta adreses ievadīšanas un pēc tam noklikšķiniet uz lodziņa “Parādīt kā”, noklusējuma parādītais vārds tiks automātiski aizpildīts, parādīts kā šāds ekrānuzņēmums:

Šis e-pasta parādāmais vārds iedarbosies, kad būs jāizvēlas kontakts. Tāpat kā zemāk redzamais attēls, 2^nd kolonna “Parādītais nosaukums” atbilst informācijai laukā “Parādīt kā”.

Ja vēlaties mainīt e-pasta parādāmā vārda formātu, tas ir jāmaina manuāli. Bet ar VBA palīdzību jūs varat mainīt visu kontaktu e-pasta parādāmā vārda formātu uz vēlamo formātu partijās.

Mainiet visu savu kontaktu e-pasta parādāmo vārdu formātus

1. Pirmkārt, palaidiet programmu Outlook un nospiediet taustiņu “Alt + F11”, lai piekļūtu logam “Visual Basic”.
2. Pēc tam atveriet jaunu moduli un iekopējiet tajā šādus 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

Papildu padomi:

• Jūs varat mainīt secību starp “pilns vārds”, “uzņēmuma nosaukums” un “e-pasta adrese” atbilstoši savai izvēlei.
• ".Pilnais vārds”Attiecas uz formātu“ Vārds Uzvārds ”. Ja vēlaties parādīt sadaļā “Uzvārds Vārds”, izmantojiet “.UzvārdsUnVārdsVietā.

3. Pēc tam pēc VBA kodu ielīmēšanas jums vajadzētu pievienot jauno makro ātrās piekļuves rīkjoslai. Veiciet šādas darbības:

• Pirmkārt, atgriezieties galvenajā Outlook logā un ātrās piekļuves rīkjoslā nospiediet lejupvērsto bultiņu.
• Nolaižamajā sarakstā izvēlieties “Vairāk komandu”.
• Pēc tam logā “Outlook opcijas” lodziņā “Izvēlēties komandas no” jāizvēlas “Makro”.
• Pēc tam iestatiet mērķa makro un nospiediet pogu “Pievienot” centrā.
• Visbeidzot noklikšķiniet uz pogas Labi.

4. Galu galā jūs varat atgriezties noklusējuma kontaktpersonu mapē. Ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas. Pēc tam varat atvērt vienu kontaktu, lai pārbaudītu. Jūs atradīsit, ka e-pasta parādāmā vārda formāts ir mainīts.

Izbēgšana no Outlook datu zaudēšanas

Kā mēs visi zinām, programma Outlook ir pakļauta kļūdām, bojājumiem. Tāpēc tas ir grūts uzdevums saglabāt Outlook datu aizsardzību un novērst datu zudumu. Tāpēc jums vajadzētu regulāri izveidot savu Outlook datu dublējumu, kas daudz veicinās Outlook datu bojājumu atgūšana Outlook avārijas gadījumā. Tāpat ir svarīgi iegūt spēcīgu labošanas rīku, piemēram, DataNumen Outlook Repair. Kopumā tas noderēs, ja dublējumkopija nebūs aktuāla vai neizdosies.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonts SQL Server mdf datu bāzes bojājumi un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar