Outlook-da e-poçt göndərərkən fərqli hesablar üçün müxtəlif şriftlərdən avtomatik istifadə etmək

Outlook-da bir neçə e-poçt hesabını konfiqurasiya etmisinizsə və göndərmə üçün istifadə olunan müxtəlif e-poçt hesablarına uyğun olaraq gedən e-poçtlarda fərqli şriftlərdən istifadə etmək istəyirsinizsə, bu məqalədə təqdim olunan yanaşmadan istifadə edə bilərsiniz.

Bir çox istifadəçi ümid edir ki, Outlook göndərmək üçün istifadə etdikləri müxtəlif e-poçt hesabları əsasında gedən e-poçtlarda müxtəlif şriftləri avtomatik seçib istifadə edə bilər. Lakin, standart olaraq, Outlook-da belə bir xüsusiyyət yoxdur. Xoşbəxtlikdən, siz hələ də VBA kodunun köməyi ilə bunu həyata keçirə bilərsiniz. İndi bu üsulu ətraflı şəkildə açıqlayacağıq.

E-poçt göndərərkən müxtəlif hesablar üçün müxtəlif şriftlərdən avtomatik istifadə edin

1. Əvvəlcə Outlook tətbiqinizi başladın.
2. Sonra, sonrakı Outlook əsas pəncərəsində "Alt + F11" düymələrini basmalısınız.
3. Sonra, yeni bir pəncərəyə daxil olacaqsınız - "Proqramlar üçün Microsoft Visual Basic".
4. Bu pəncərədə sizdən “ThisOutlookSession” layihəsini tapıb açmağınız tələb olunacaq.
5. Sonradan aşağıdakı VBA kodunu kopyalayıb bu layihəyə yapışdırın.

'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. Bundan sonra bu kodu imzalasanız daha yaxşı olar.

• Əvvəlcə alətlər panelində "Alətlər" düyməsini basın.
• Sonra açılan siyahıdan “Rəqəmsal İmza” seçimini seçin.
• Daha sonra bu tapşırığı tamamlamaq üçün ekrandakı təlimatlara əməl edə bilərsiniz.

7. Sonra, cari pəncərədən çıxa və imzalanmış VBA layihələrinə icazə vermək üçün Outlook makro parametrlərinizi dəyişməyə davam edə bilərsiniz.
8. Bundan sonra, siz hər dəfə e-poçt göndərdiyiniz zaman, Outlook göndərilmə üçün e-poçt hesabına uyğun olaraq gedən e-poçtlardakı şriftləri avtomatik olaraq dəyişdirəcək.

Gözlənilməz Outlook qəzasına hazır olun

Outlook-un zəifliyi səbəbindən istifadəçilər Outlook ilə işləyərkən müxtəlif problemlərə hər zaman yaxşı hazırlıqlı olmalıdırlar. Şübhəsiz ki, ən vacib addımlardan biri Outlook məlumatları üçün ardıcıl və yenilənmiş ehtiyat nüsxəsini yaratmaqdır. Bu cür ehtiyat nüsxələri ilə, orijinal Outlook məlumatları qəza nəticəsində zədələnsə belə, yenə də edə bilərsiniz. Outlook-u bərpa edin ehtiyat nüsxələrindən məlumatları ən yüksək dərəcədə asanlıqla çıxarın. Üstəlik, Outlook-unuzu güclü bir düzəliş vasitəsi ilə təchiz etməyiniz də məsləhətdir, məsələn DataNumen Outlook Repair. Yedəkləmələr uğursuz olduqda 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 sql korrupsiyası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com