Таны бүх харилцагчдын имэйлийн дэлгэцийн нэрийн форматыг Outlook VBA ашиглан багц хэлбэрээр хэрхэн өөрчлөх вэ

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Outlook нь холбоо барих бүх имэйлийг анхдагч нэрийн форматаар харуулах болно, тухайлбал “бүтэн нэр (имэйл хаяг)”. Хэрэв танд таалагдахгүй байгаа бол шинэ холбоо барих бүртээ үүнийг гараар өөрчлөх шаардлагатай болно. Энэ нийтлэл нь Outlook VBA програмын тусламжтайгаар тэдгээрийг багцлан өөрчлөх хурдан аргыг зааж өгөх болно.

Шинэ Outlook харилцагч үүсгэх үед бүтэн нэр, имэйл хаягаа оруулаад дараа нь "Display as" нүдэнд дарсны дараа дэлгэцийн анхдагч нэрийг автоматаар бөглөж дараахь дэлгэцийн агшинд харуулна.

Энэ имэйлийн дэлгэцийн нэр нь харилцагчаа сонгох шаардлагатай үед нөлөөлөх болно. Доорх зураг шиг 2^nd "Display Name" багана нь "Display as" талбарын мэдээлэлтэй тохирч байна.

Та имэйлийн дэлгэцийн нэрийн хэлбэрийг өөрчлөхийг хүсвэл гараар өөрчлөх хэрэгтэй. Гэхдээ 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

Нэмэлт зөвлөмжүүд:

Та өөрийн захиалгын дагуу "бүтэн нэр", "компанийн нэр", "имэйл хаяг" гэсэн дарааллаар сольж болно.
".Бүтэн нэр”Гэж“ Нэрийн овог ”дахь форматыг хэлнэ. Хэрэв та "Овгийн нэр" дээр харуулахыг хүсвэл ".СүүлийнNameAndFirstName”Оронд нь.

Дараа нь, VBA кодуудыг хуулж авсны дараа Quick Access Toolbar дээр шинэ макро нэмэх хэрэгтэй. Доорх алхмуудыг дагана уу.

Нэгдүгээрт, Outlook-ийн үндсэн цонх руу буцаж очоод Quick Access Toolbar дээр доошоо сумыг дарна уу.
Унтраах жагсаалтаас "Илүү тушаалууд" -ыг сонгоно уу.
Дараа нь “Outlook Options” цонхноос “Select commands from” хэсэгт “Macros” -ыг сонгоно уу.
Дараа нь зорилтот макро дээр байрлуулж, төвд байрлах "Нэмэх" товчийг дарна уу.
Эцэст нь “OK” товчийг дарна уу.

Эцэст нь та анхдагч холбоо барих хавтас руугаа буцаж болно. Quick Access Toolbar дээрх макро товчлуур дээр дарна уу. Үүний дараа та шалгахын тулд нэг харилцагчийг нээж болно. Та имэйлийн дэлгэцийн нэрийн формат өөрчлөгдсөн болохыг олж мэдэх болно.

Outlook өгөгдлийн алдагдлаас зугтах

Бидний мэдэж байгаагаар Outlook нь алдаа, авлигад өртөмтгий байдаг. Тиймээс Outlook-ийн өгөгдлийг хамгаалж, мэдээлэл алдахаас урьдчилан сэргийлэх нь маш хэцүү ажил юм. Тиймээс та Outlook өгөгдлийнхөө нөөцлөлтийг тогтмол хийж байх ёстой бөгөөд үүнд ихээхэн хувь нэмэр оруулах болно Outlook өгөгдлийн хохирлыг арилгах Outlook сүйрсэн тохиолдолд. Гэх мэт хүчтэй засварын хэрэгсэл авах нь зайлшгүй чухал юм DataNumen Outlook Repair. Нөөц нь хүчин төгөлдөр бус эсвэл үр дүнгээ өгөхгүй бол бүх зүйл ашигтай байх болно.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. засвар SQL Server mdf мэдээллийн баазын гэмтэл програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com