VBA vasitəsilə əlaqə, görüş və tapşırıq üçün standart şrifti necə təyin etmək olar

Outlook-da əlaqə, görüş və tapşırıq elementi üçün standart şrift təyin etmək üçün heç bir yerli xüsusiyyət yoxdur. Beləliklə, şrifti təyin etmək istəyirsinizsə, bu məqalədə təqdim olunan üsula müraciət edə bilərsiniz.

E-poçt kimi, Outlook təyinatı, tapşırıq və əlaqə də maddə təfərrüatlarını doldura biləcəyimiz əsas sahəyə malikdir. Bununla belə, Outlook istifadəçilərə yalnız e-poçt mətnində istifadə olunan standart şrifti təyin etməyə icazə verir. Əlaqə, görüş və ya tapşırığın mətnində şrifti təyin etmək istəyirsinizsə, üçüncü tərəf əlavələri və ya Outlook VBA kimi başqa vasitələr axtarmalısınız. Burada onu əldə etmək üçün VBA-dan necə istifadə edəcəyinizi ətraflı şəkildə öyrədəcəyik. Ətraflı addımları və müvafiq VBA kodlarını öyrənmək üçün oxuyun.

Təyinat, Tapşırıq və Əlaqə üçün Defolt Şrifti təyin edin

1. Ən başlanğıcda, start Outlook proqramınız.
2. Sonra Outlook VBA redaktorunu işə salmaq üçün “Alt + F11” düymələrini sıxın.
3. Açılan pəncərədə “ThisOutlookSession” layihəsini açmalısınız.
4. Sonradan aşağıdakı VBA kodlarını bu layihə pəncərəsinə köçürün.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objInspector As Outlook.Inspector

Public Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Public Sub objInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
    Set objInspector = Inspector
End Sub

Public Sub objInspector_Activate()
    Dim objCurrentItem As Object
    Dim objCurrentInspector As Outlook.Inspector
    Dim objWordDocument As Word.Document
    Dim objWordSelection As Word.Selection
 
    Set objCurrentItem = objInspector.CurrentItem
    Set objCurrentInspector = objCurrentItem.GetInspector
    Set objWordDocument = objCurrentInspector.WordEditor
    Set objWordSelection = objWordDocument.Application.Selection
 
    'You change the font as per your preference
    Select Case objCurrentItem.Class
           Case olContact
                With objWordSelection.Font
                     .Name = "Segoe Script"
                     .ColorIndex = wdRed
                     .Size = 8
                     .Bold = True
                End With
           Case olAppointment
                With objWordSelection.Font
                     .Name = "Comic Sans MS"
                     .ColorIndex = wdBlue
                     .Size = 9
                     .Bold = False
                End With
           Case olTask
                With objWordSelection.Font
                     .Name = "MV Boli"
                     .ColorIndex = wdGreen
                     .Size = 10
                     .Bold = True
                End With
   End Select
End Sub

5. Bundan sonra bu kodu imzalamalısınız.

• Əvvəlcə VBA Layihələri üçün Rəqəmsal Sertifikatlarla rəqəmsal sertifikat yaradın.
• Sonra bu sertifikatı yeni makroya təyin edin.

6. Daha sonra rəqəmsal imzalanmış makrolara icazə vermək üçün Outlook makro parametrlərinizi dəyişə bilərsiniz.
7. Nəhayət sən starYeni VBA layihəsini aktivləşdirmək üçün Outlook-a daxil olun. Bundan sonra siz yeni kontakt, görüş və ya tapşırıq yaratdığınız zaman bədən aşağıdakı ekran görüntüsü kimi öz standart şriftindən istifadə edəcək:

PST məlumatlarınızı korrupsiyaya qarşı qoruyun

Outlook PST faylının səhv və korrupsiyaya meylli olması səbəbindən PST qorumalarına çox diqqət yetirməlisiniz. Məsələn, naməlum mənbələrdən gələn e-poçtlardan ehtiyatlı olmalısınız, çünki onlar viruslu zərərli e-poçtlar ola bilər. PST faylınız yoluxduqda, siz reputasiyalı və yaxşı sübut edilmiş düzəltmə alətinə müraciət etməlisiniz. DataNumen Outlook Repair, ola bilər təmir PST meh kimi fayl.

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 düzeltmek SQL Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com