Outlook VBA ilə Dəstələrdə Bütün Kontaktlarınızın E-poçt Görünüş Adı Formatlarını Necə Dəyişdirmək olar

Outlook Həlləri Sentyabr 29, 2025

Outlook bütün əlaqə e-poçtlarını standart ekran adı formatında, yəni "tam ad (e-poçt ünvanı)" şəklində göstərəcəkdir. Bəyənməsəniz, hər dəfə yeni kontaktlar yaradan zaman onu əl ilə dəyişməli olacaqsınız. Bu məqalə sizə Outlook VBA ilə onları toplu halında dəyişdirməyin sürətli yolunu öyrədəcək.

Yeni Outlook kontaktı yaratdığınız zaman, tam adı və e-poçt ünvanını daxil etdikdən və sonra “Fərqlə göstər” qutusuna klik etdikdən sonra, defolt ekran adı avtomatik olaraq aşağıdakı ekran görüntüsü kimi göstəriləcək doldurulacaq:

Bu e-poçtun görünən adı kontakt seçdiyiniz zaman effektlər yaradacaq. Aşağıdakı şəkildəki kimi, 2^nd “Adı göstər” sütunu “Fərqlə göstər” sahəsindəki məlumata uyğundur.

E-poçt ekran adının formatını dəyişdirmək istədiyiniz zaman onu əl ilə dəyişdirməlisiniz. Lakin VBA-nın köməyi ilə siz bütün kontaktların e-poçt ekran adının formatını qrup şəklində istədiyiniz formata dəyişə bilərsiniz.

Bütün Kontaktlarınızın E-poçt Görünüş Adı Formatlarını Dəyişin

İlk növbədə, Outlook-u işə salın və "Visual Basic" pəncərəsinə daxil olmaq üçün "Alt + F11" düymələrini basın.
Sonra yeni modul açın və aşağıdakı VBA kodlarını ona kopyalayın.

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

Əlavə göstərişlər:

Sifarişi "tam ad", "şirkət adı" və "e-poçt ünvanı" arasında öz istəyinizə uyğun dəyişə bilərsiniz.
The ".Full Name” “Ad Soyad”dakı formata istinad edir. “Soyad Ad”da göstərmək istəyirsinizsə, “ istifadə edin.SoyadVəAd”Əvəzinə.

Sonradan, VBA kodlarını yerləşdirdikdən sonra, Tez Giriş Alətlər Panelinə yeni makro əlavə etməlisiniz. Aşağıdakı addımları yerinə yetirin:

Əvvəlcə əsas Outlook pəncərəsinə qayıdın və Tez Giriş Alətlər Panelində aşağı oxu vurun.
Açılan siyahıdan "Daha çox əmrlər" seçin.
Sonra "Outlook Seçimləri" pəncərəsində "Əmrləri seçin" qutusunda "Makrolar"ı seçməlisiniz.
Daha sonra hədəf makrosunu yerləşdirin və mərkəzdəki "Əlavə et" düyməsini basın.
Sonda "OK" düyməsini basın.

Nəhayət, siz standart əlaqə qovluğuna qayıda bilərsiniz. Tez Giriş Alətlər Panelində makro düyməsini basın. Bundan sonra yoxlamaq üçün bir kontakt aça bilərsiniz. Siz e-poçt ekran adının formatının dəyişdirildiyini görəcəksiniz.

Outlook məlumat itkisindən qaçın

Hamımızın bildiyi kimi, Outlook səhvlərə, pozulmalara həssasdır. Buna görə də, Outlook məlumatlarını qorumaq və məlumat itkisinin qarşısını almaq çətin bir işdir. Beləliklə, Outlook məlumatlarınız üçün müntəzəm ehtiyat nüsxəsini çıxarmalısınız ki, bu da çox kömək edəcəkdir Outlook məlumat zərərinin bərpası Outlook qəzası halında. Həmçinin, güclü təmir aləti əldə etmək vacibdir, məsələn DataNumen Outlook Repair. Ümumiyyətlə, ehtiyat nüsxə cari deyilsə və ya effekt verə bilmirsə, bu faydalı olacaq.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir SQL Server mdf verilənlər bazası zədələnməsi və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com