VBA orqali kontakt, uchrashuv va topshiriq uchun standart shriftni qanday o'rnatish mumkin

Outlook-da kontakt, uchrashuv va vazifa elementi uchun standart shriftni o'rnatish uchun mahalliy xususiyat mavjud emas. Shunday qilib, agar siz shriftni aniqlamoqchi bo'lsangiz, ushbu maqolada keltirilgan usulga murojaat qilishingiz mumkin.

E-pochta kabi, Outlook uchrashuvi, topshiriq va kontaktda biz element tafsilotlarini to'ldirishimiz mumkin bo'lgan asosiy maydon mavjud. Biroq, Outlook foydalanuvchilarga faqat elektron pochta matnida ishlatiladigan standart shriftni o'rnatishga ruxsat beradi. Agar siz kontakt, uchrashuv yoki topshiriq matnida shriftni belgilamoqchi bo'lsangiz, uchinchi tomon plaginlari yoki Outlook VBA kabi boshqa vositalarni izlashingiz kerak. Bu erda biz sizga VBA dan qanday foydalanishni batafsil o'rgatamiz. Batafsil qadamlar va tegishli VBA kodlarini o'rganish uchun o'qing.

Uchrashuv, vazifa va kontakt uchun standart shriftni o'rnating

1. Eng boshida, start Outlook dasturingiz.
2. Keyin Outlook VBA muharririni ishga tushirish uchun "Alt + F11" tugmachalarini bosing.
3. Qalqib chiquvchi oynada siz "ThisOutlookSession" loyihasini ochishingiz kerak.
4. Keyinchalik, ushbu loyiha oynasiga quyidagi VBA kodlarini nusxalang.

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. Shundan so'ng siz ushbu kodni imzolashingiz kerak.

• Birinchidan, VBA loyihalari uchun raqamli sertifikatlar tomonidan raqamli sertifikat yarating.
• Keyin ushbu sertifikatni yangi makroga tayinlang.

6. Keyinchalik, raqamli imzolangan makroslarga ruxsat berish uchun Outlook makro sozlamalarini o'zgartirishingiz mumkin.
7. Nihoyat siz starYangi VBA loyihasini faollashtirish uchun Outlook-ni tanlang. Bundan buyon siz yangi kontakt, uchrashuv yoki topshiriq yaratganingizda, tana quyidagi skrinshot kabi standart shriftdan foydalanadi:

PST ma'lumotlaringizni korruptsiyadan himoya qiling

Outlook PST fayli xato va buzilishlarga moyil bo'lganligi sababli, siz PST himoyasiga katta e'tibor berishingiz kerak. Misol uchun, siz noma'lum manbalardan kelgan elektron pochta xabarlaridan ehtiyot bo'lishingiz kerak, chunki ular virusli zararli elektron pochta xabarlari bo'lishi mumkin. PST faylingiz infektsiyalanganidan so'ng, siz obro'li va yaxshi tasdiqlangan tuzatish vositasiga murojaat qilishingiz kerak, masalan DataNumen Outlook Repairmumkin PST-ni ta'mirlash shabada kabi fayl.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc tuzatish SQL Server va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com