როგორ შეცვალოთ თქვენი ყველა კონტაქტის ელ.ფოსტის საჩვენებელი სახელების ფორმატები ჯგუფურად Outlook VBA-ით

Outlook Solutions სექტემბერი 29, 2025

Outlook აჩვენებს ყველა საკონტაქტო წერილს მისი ნაგულისხმევი საჩვენებელი სახელის ფორმატში, კერძოდ, „სრული სახელი (ელფოსტის მისამართი)“. თუ არ მოგწონთ, თქვენ უნდა შეცვალოთ ხელით ყოველ ჯერზე ახალი კონტაქტების შექმნისას. ეს სტატია გასწავლით სწრაფ გზას, რომ შეცვალოთ ისინი ჯგუფურად Outlook VBA-ით.

როდესაც შექმნით ახალ Outlook კონტაქტს, მას შემდეგ რაც შეიყვანთ სრულ სახელს და ელფოსტის მისამართს და შემდეგ დააწკაპუნებთ ველში „ჩვენება როგორც“, ნაგულისხმევი საჩვენებელი სახელი ავტომატურად შეივსება, ნაჩვენები იქნება შემდეგი ეკრანის ანაბეჭდის სახით:

ელფოსტის ეს საჩვენებელი სახელი მოახდენს ეფექტებს, როდესაც დაგჭირდებათ კონტაქტის არჩევა. ქვემოთ მოყვანილი სურათის მსგავსად, 2^nd სვეტი "Display Name" შეესაბამება ინფორმაციას "ჩვენება როგორც" ველში.

როდესაც გსურთ შეცვალოთ ელ.ფოსტის საჩვენებელი სახელის ფორმატი, თქვენ უნდა შეცვალოთ იგი ხელით. მაგრამ 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

დამატებითი რჩევები:

თქვენ შეგიძლიათ შეცვალოთ შეკვეთა „სრული სახელი“, „კომპანიის სახელი“ და „ელ.ფოსტის მისამართი“ თქვენი უპირატესობის მიხედვით.
".Სრული სახელი" ეხება ფორმატს "გვარი გვარი". თუ გსურთ აჩვენოთ „გვარი სახელი“, გამოიყენეთ „.გვარი და სახელი”სამაგიეროდ.

შემდგომში, VBA კოდების ჩასმის შემდეგ, თქვენ უნდა დაამატოთ ახალი მაკრო Quick Access Toolbar-ში. მიჰყევით ქვემოთ მოცემულ ნაბიჯებს:

უპირველეს ყოვლისა, დაბრუნდით Outlook-ის მთავარ ფანჯარაში და დააჭირეთ ქვემოთ ისარს სწრაფი წვდომის ხელსაწყოთა ზოლში.
ჩამოსაშლელი სიიდან აირჩიეთ "მეტი ბრძანებები".
შემდეგ "Outlook Options" ფანჯარაში, თქვენ უნდა აირჩიოთ "Macros" ყუთში "აირჩიე ბრძანებები".
შემდგომში, დააყენეთ სამიზნე მაკრო და დააჭირეთ ღილაკს „დამატება“ ცენტრში.
ბოლოს დააჭირეთ ღილაკს "OK".

საბოლოოდ შეგიძლიათ დაბრუნდეთ თქვენს ნაგულისხმევ საკონტაქტო საქაღალდეში. დააწკაპუნეთ მაკრო ღილაკზე სწრაფი წვდომის ხელსაწყოთა ზოლში. ამის შემდეგ, თქვენ შეგიძლიათ გახსნათ ერთი კონტაქტი შესამოწმებლად. თქვენ ნახავთ, რომ ელფოსტის საჩვენებელი სახელის ფორმატი შეიცვალა.

გაქცევა Outlook მონაცემთა დაკარგვისგან

როგორც ყველამ ვიცით, Outlook მგრძნობიარეა შეცდომების, კორუფციის მიმართ. აქედან გამომდინარე, რთული ამოცანაა Outlook-ის მონაცემების დაცვა და მონაცემთა დაკარგვის თავიდან აცილება. ასე რომ, თქვენ უნდა გააკეთოთ რეგულარული სარეზერვო ასლი თქვენი Outlook მონაცემებისთვის, რაც დიდ წვლილს შეიტანს Outlook მონაცემთა დაზიანების აღდგენა Outlook-ის ავარიის შემთხვევაში. ასევე, აუცილებელია მიიღოთ ძლიერი სარემონტო ხელსაწყო, როგორიცაა DataNumen Outlook Repair. მთლიანობაში, ის გამოგადგებათ, თუ სარეზერვო ასლი არ არის აქტუალური ან ვერ ახდენს ეფექტებს.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის სარემონტო SQL Server mdf მონაცემთა ბაზის დაზიანება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად