Outlook VBA бағдарламасымен пакеттердегі барлық контактілердің электрондық поштаның көрсетілетін атау пішімдерін қалай өзгертуге болады

Outlook шешімдері Қыркүйек 29, 2025

Outlook барлық байланыс электрондық пошталарын өзінің әдепкі көрсетілетін атау пішімінде көрсетеді, атап айтқанда «толық аты (электрондық пошта мекенжайы)». Егер сізге ұнамаса, жаңа контактілерді жасаған сайын оны қолмен өзгерту керек болады. Бұл мақала Outlook VBA көмегімен оларды топтамада өзгертудің жылдам әдісін үйретеді.

Жаңа Outlook контактісін жасағанда, толық аты-жөні мен электрондық пошта мекенжайын енгізгеннен кейін, содан кейін «Басқаша көрсету» жолағын басқаннан кейін, келесі скриншот ретінде көрсетілетін әдепкі көрсетілетін атау автоматты түрде толтырылады:

Бұл электрондық поштаның көрсетілетін атауы контактіні таңдау қажет болғанда әсер етеді. Төмендегі сурет сияқты, 2^nd «Көрсетілетін атау» бағанасы «Басқаша көрсету» өрісіндегі ақпаратқа сәйкес келеді.

Электрондық поштаның көрсетілетін атауы пішімін өзгерткіңіз келсе, оны қолмен өзгертуіңіз керек. Бірақ VBA көмегімен сіз барлық контактілердің электрондық поштасының көрсетілетін атауы пішімін өзіңіздің қалаған пішіміңізге пакеттермен өзгерте аласыз.

Пакеттегі барлық контактілеріңіздің электрондық поштаның көрсетілетін атау пішімдерін өзгертіңіз

Біріншіден, Outlook бағдарламасын іске қосыңыз және «Visual Basic» терезесіне кіру үшін «Alt + F11» пернелерін басыңыз.
Содан кейін жаңа модульді ашып, оған келесі 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

Қосымша кеңестер:

Сіз өз қалауыңыз бойынша «толық аты», «компания атауы» және «электрондық пошта мекенжайы» арасында тапсырысты өзгерте аласыз.
«.Толық аты” «Аты Тегі» пішіміне сілтеме жасайды. «Тегі аты» ішінде көрсеткіңіз келсе, «.LastNameAndFirstName»Орнына.

Кейіннен, VBA кодтарын қойғаннан кейін, жаңа макросты Жылдам кіру құралдар тақтасына қосу керек. Төмендегі қадамдарды орындаңыз:

Біріншіден, негізгі Outlook терезесіне оралыңыз және Жылдам кіру құралдар тақтасындағы төмен көрсеткіні басыңыз.
Ашылмалы тізімнен «Қосымша пәрмендерді» таңдаңыз.
Содан кейін «Outlook параметрлері» терезесінде «Пәрмендерді таңдау» жолағында «Макростар» тармағын таңдау керек.
Содан кейін, мақсатты макросты таңдап, ортасындағы «Қосу» түймесін басыңыз.
Соңғы рет «ОК» батырмасын басыңыз.

Ақыр соңында әдепкі контакт қалтасына оралуға болады. Жылдам кіру құралдар тақтасындағы макрос түймесін басыңыз. Осыдан кейін тексеру үшін бір контактіні ашуға болады. Электрондық поштаның көрсетілетін атауы пішімі өзгертілгенін көресіз.

Outlook деректерін жоғалтудан қашу

Барлығымыз білетіндей, Outlook қателерге, бүлінуге бейім. Сондықтан Outlook деректерін қорғау және деректердің жоғалуын болдырмау қиын міндет. Сондықтан сіз Outlook деректерінің тұрақты сақтық көшірмесін жасауыңыз керек, бұл үлкен үлес қосады Outlook деректерін қалпына келтіру Outlook бұзылған жағдайда. Сондай-ақ, күшті жөндеу құралын алу маңызды, мысалы DataNumen Outlook Repair. Тұтастай алғанда, егер сақтық көшірме ағымдағы болмаса немесе әсер ете алмаса, бұл пайдалы болады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. жөндеу SQL Server mdf дерекқорының зақымдануы және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com