Як встановити шрифт за замовчуванням для тіла контакту, призначення та завдання за допомогою VBA

Outlook не має власної функції для встановлення типового шрифту для тіла контакту, зустрічі та елемента завдання. Таким чином, якщо ви хочете вказати шрифт, ви можете вдатися до методу, представленого в цій статті.

Як і електронна пошта, призначення, завдання та контакт в Outlook також мають поле основного тексту, в яке ми можемо ввести деталі елемента. Однак Outlook лише дозволяє користувачам встановлювати шрифт за замовчуванням, який використовується в тілі електронної пошти. Якщо ви хочете вказати шрифт у тілі контакту, зустрічі або завдання, вам доведеться шукати інші засоби, такі як надбудови сторонніх розробників або Outlook VBA. Тут ми детально навчимо вас користуватися VBA, щоб отримати його. Прочитайте далі, щоб дізнатися детальні кроки та відповідні коди VBA.

Встановіть шрифт за замовчуванням для основного призначення, завдання та контакту

1. На самому початку сtart свою програму Outlook.
2. Потім натисніть клавіші “Alt + F11”, щоб запустити редактор Outlook VBA.
3. У спливаючому вікні потрібно відкрити проект “ThisOutlookSession”.
4. Згодом скопіюйте наступні коди VBA у це вікно проекту.

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. Після цього вам потрібно підписати цей код.

• Спочатку створіть цифровий сертифікат за допомогою цифрових сертифікатів для проектів VBA.
• Потім призначте цей сертифікат новому макросу.

6. Пізніше ви можете змінити налаштування макросів Outlook, щоб дозволити макроси з цифровим підписом.
7. Нарешті ти сtart ваш Outlook, щоб активувати новий проект VBA. Відтепер, коли ви створюєте новий контакт, зустріч або завдання, тіло використовуватиме шрифт за замовчуванням, як на наступному скріншоті:

Захистіть свої дані PST від корупції

Через те, що файл Outlook PST схильний до помилок та пошкоджень, вам доведеться приділяти велику увагу захисту PST. Наприклад, вам слід остерігатися електронних листів з невідомих джерел, оскільки це можуть бути шкідливі електронні листи з вірусами. Як тільки ваш файл PST заразиться, вам доведеться повернутися до надійного та перевіреного засобу виправлення, такого як DataNumen Outlook Repair, які можуть ремонт PST файл, як вітерець.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі фіксувати SQL Server та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com