Outlook бағдарламасына электрондық пошта жіберу кезінде әр түрлі қаріптерді әртүрлі есептік жазбаларға қалай қолдануға болады

Егер сіз Outlook бағдарламасында бірнеше электрондық пошта тіркелгілерін теңшеген болсаңыз және жіберілген электрондық пошта есептік жазбалары бойынша шығыс хаттарда әр түрлі қаріптерді қолданғыңыз келсе, осы мақалада енгізілген тәсілді қолдануға болады.

Көптеген пайдаланушылар Outlook-ті автоматты түрде таңдай алады және жіберілетін электрондық пошта есептік жазбалары негізінде шығатын электрондық хаттарда әр түрлі қаріптерді қолдана алады деп үміттенеді. Алайда, әдепкі бойынша, Outlook-та мұндай функция жоқ. Бақытымызға орай, сіз мұны VBA кодының көмегімен жүзеге асыра аласыз. Енді біз бұл әдісті егжей-тегжейлі ашамыз.

Электрондық пошта жіберген кезде әртүрлі шоттар үшін әр түрлі қаріптерді автоматты түрде қолдану

1. Ең алдымен, Outlook қолданбаңызды іске қосыңыз.
2. Содан кейін, Outlook бағдарламасының негізгі терезесінде «Alt + F11» пернелерін басу керек.
3. Одан кейін сіз жаңа қосымшаны енгізесіз - «Microsoft Visual Basic for Applications».
4. Осы терезеде сізден «ThisOutlookSession» жобасын табу және ашу талап етіледі.
5. Содан кейін келесі VBA кодын көшіріп, осы жобаға қойыңыз.

'Occurs when you click "Send" button
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As MailItem
    Dim objMailDocument As Word.Document
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objMailDocument = objMail.GetInspector.WordEditor
 
       'Use different fonts based on different send using account
       'Change the accounts and fonts as per your needs
       Select Case objMail.SendUsingAccount
              Case "johnsmith@datanumen.com"
                   With objMailDocument.Range.Font
                        .Name = "Times New Roman"
                        .Size = 13
                        .ColorIndex = wdBlue
                   End With
              Case "team1@datanumen.com"
                   With objMailDocument.Range.Font
                        .Name = "Cambria"
                        .Size = 10
                        .ColorIndex = wdBlack
                   End With
              Case "johnsmith_jonny@outlook.com"
                   With objMailDocument.Range.Font
                        .Name = "Segoe Script"
                        .Size = 8
                        .ColorIndex = wdDarkYellow
                   End With
      End Select
 
      objMail.Save
    End If
End Sub

6. Осыдан кейін сіз осы кодқа қол қойғаныңыз жақсы.

• Алдымен құралдар тақтасындағы «Құралдар» батырмасын басыңыз.
• Содан кейін ашылмалы тізімнен «Сандық қолтаңба» опциясын таңдаңыз.
• Кейінірек сіз бұл тапсырманы орындау үшін экрандағы нұсқауларды орындай аласыз.

7. Содан кейін, ағымдағы терезеден шығып, қол қойылған VBA жобаларына рұқсат беру үшін Outlook макро параметрлерін өзгертуге болады.
8. Бұдан былай электрондық поштаны жіберген сайын, Outlook жіберілетін электрондық пошта тіркелгісі бойынша шығыс хаттардағы қаріптерді автоматты түрде өзгертеді.

Күтпеген Outlook апатына дайын болыңыз

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

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

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