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

В Outlook нет встроенной функции для установки шрифта по умолчанию для тела контакта, встречи и элемента задачи. Таким образом, если вы хотите указать шрифт, вы можете прибегнуть к методу, представленному в этой статье.

Как и электронная почта, встреча Outlook, задача и контакт также имеют поле тела, в котором мы можем заполнить детали элемента. Однако Outlook разрешает пользователям устанавливать только шрифт по умолчанию, используемый в теле письма. Если вы хотите указать шрифт в контакте, встрече или задаче, вам придется искать другие средства, такие как сторонние надстройки или Outlook VBA. Здесь мы подробно научим вас, как использовать VBA для его получения. Читайте дальше, чтобы узнать подробные шаги и соответствующие коды VBA.

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

1. В самом начале сtarв вашей программе 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. Наконец ты сtarОткройте Outlook, чтобы активировать новый проект VBA. Отныне, когда вы создаете новый контакт, встречу или задачу, для тела будет использоваться шрифт по умолчанию, как показано на следующем снимке экрана:

Защитите свои данные PST от повреждения

Из-за того, что файл Outlook PST подвержен ошибкам и повреждению, вы должны уделять много внимания защите PST. Например, вам следует остерегаться электронных писем из неизвестных источников, поскольку они могут быть вредоносными электронными письмами с вирусами. Как только ваш PST-файл будет заражен, вам придется вернуться к надежному и хорошо зарекомендовавшему себя инструменту исправления, такому как DataNumen Outlook Repair, Которые могут восстановить PST файл как ветер.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая фиксировать SQL Server и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com