Ինչպես փոխել ձեր բոլոր կոնտակտների էլփոստի ցուցադրման անվանման ձևաչափերը խմբաքանակներով Outlook VBA-ով

Outlook լուծումներ Սեպտեմբեր 29, 2025

Outlook-ը կցուցադրի բոլոր կոնտակտային նամակները իր կանխադրված ցուցադրվող անվան ձևաչափով, այն է՝ «լրիվ անուն (էլ․ հասցե)»։ Եթե դա ձեզ դուր չի գալիս, դուք պետք է ամեն անգամ նոր կոնտակտներ ստեղծելիս այն փոխեք ձեռքով: Այս հոդվածը ձեզ կսովորեցնի Outlook VBA-ով դրանք խմբաքանակով փոխելու արագ եղանակ:

Երբ դուք ստեղծում եք նոր Outlook կոնտակտ, այն բանից հետո, երբ մուտքագրեք ամբողջական անունը և էլփոստի հասցեն, այնուհետև սեղմեք «Ցուցադրել որպես» վանդակը, կանխադրված ցուցադրվող անունը ավտոմատ կերպով լրացնելուց հետո կցուցադրվի հետևյալ սքրինշոթի տեսքով.

Այս էլ. Ինչպես ստորև ներկայացված պատկերը, այնպես էլ 2^nd «Ցուցադրման անունը» սյունակը համապատասխանում է «Ցուցադրել որպես» դաշտի տեղեկատվությանը:

Երբ ցանկանում եք փոխել էլփոստի ցուցադրվող անվանման ձևաչափը, դուք պետք է այն փոխեք ձեռքով: Բայց VBA-ի օգնությամբ դուք կարող եք փոխել բոլոր կոնտակտների էլ. էլ.

Փոփոխեք ձեր բոլոր կոնտակտների էլփոստի ցուցադրման անվանման ձևաչափերը փաթեթներով

Առաջին հերթին գործարկեք Outlook-ը և սեղմեք «Alt + F11» կոճակները՝ «Visual Basic» պատուհանին մուտք գործելու համար:
Այնուհետև բացեք նոր մոդուլ և դրա մեջ պատճենեք հետևյալ 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

Լրացուցիչ խորհուրդներ.

Դուք կարող եք փոխել «լրիվ անվանումը», «ընկերության անվանումը» և «էլ․ հասցեն»՝ ըստ ձեր նախասիրության:
The ".Լրիվ անուն»-ը վերաբերում է «Անուն Ազգանուն»-ի ձևաչափին: Եթե ցանկանում եք ցույց տալ «Ազգանունը», օգտագործեք «.ԱզգանունԵվԱնուն»- փոխարենը.

Այնուհետև, VBA կոդերը տեղադրելուց հետո, դուք պետք է նոր մակրո ավելացնեք Quick Access Toolbar-ում: Հետևեք ստորև նշված քայլերին.

Նախ, վերադարձեք հիմնական Outlook պատուհանը և կտտացրեք ներքև սլաքը Արագ մուտքի գործիքագոտում:
Բացվող ցուցակից ընտրեք «Ավելի շատ հրամաններ»:
Այնուհետև «Outlook Options» պատուհանում «Ընտրեք հրամանները» վանդակում պետք է ընտրեք «Macros»:
Հետագայում, տեղադրեք թիրախային մակրոն և սեղմեք կենտրոնում գտնվող «Ավելացնել» կոճակը։
Վերջապես կտտացրեք «Լավ» կոճակին:

Ի վերջո, դուք կարող եք վերադառնալ ձեր կանխադրված կոնտակտային թղթապանակին: Կտտացրեք մակրո կոճակին Արագ մուտքի գործիքագոտում: Դրանից հետո կարող եք բացել մեկ կոնտակտ՝ ստուգելու համար: Դուք կտեսնեք, որ էլփոստի ցուցադրվող անվան ձևաչափը փոխվել է:

Փախչել Outlook- ի տվյալների կորստից

Ինչպես բոլորս գիտենք, Outlook-ը ենթակա է սխալների, կոռուպցիայի: Հետևաբար, Outlook-ի տվյալները պաշտպանված պահելը և տվյալների կորուստը կանխելը դժվար խնդիր է: Այսպիսով, դուք պետք է կանոնավոր կրկնօրինակեք ձեր Outlook-ի տվյալները, ինչը մեծապես կնպաստի դրան Outlook տվյալների վնասի վերականգնում Outlook-ի խափանման դեպքում: Նաև կարևոր է ձեռք բերել հզոր վերանորոգման գործիք, ինչպիսին է DataNumen Outlook Repair. Ընդհանուր առմամբ, դա օգտակար կլինի, եթե կրկնօրինակը ընթացիկ չէ կամ չի կարողանում էֆեկտներ ստեղծել:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում նորոգում SQL Server mdf տվյալների բազայի վնաս և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com