Как да зададете шрифт по подразбиране за тялото на контакта, срещата и задачата чрез VBA

Outlook няма вградена функция за задаване на шрифт по подразбиране за тялото на контакта, срещата и елемента на задачата. По този начин, ако искате да посочите шрифта, можете да прибегнете до метода, въведен в тази статия.

Подобно на имейла, срещата, задачата и контактът в Outlook също имат полето на тялото, в което можем да попълним подробностите за елемента. Outlook обаче позволява само на потребителите да задават шрифта по подразбиране, използван в тялото на имейла. Ако искате да посочите шрифта в тялото на контакта, срещата или задачата, трябва да потърсите други средства, като добавки на трети страни или Outlook VBA. Тук ще ви научим подробно как да използвате VBA, за да го получите. Прочетете, за да научите подробните стъпки и съответните VBA кодове.

Задайте шрифта по подразбиране за тялото на срещата, задачата и контакта

1. В самото начало, start вашата програма 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. Накрая ти start вашия Outlook, за да активирате новия VBA проект. Отсега нататък, когато създавате нов контакт, среща или задача, тялото ще използва шрифта си по подразбиране, като следната екранна снимка:

Защитете своите PST данни срещу корупция

Поради факта, че Outlook PST файлът е склонен към грешки и повреда, трябва да обърнете много внимание на PST защитите. Например, трябва да се пазите от имейли от неизвестни източници, тъй като те може да са злонамерени имейли с вируси. След като вашият PST файл се зарази, трябва да се върнете към реномиран и добре доказан инструмент за поправяне, като например DataNumen Outlook Repair, който може ремонт PST файл като бриз.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително фиксира SQL Server и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com