How can I change the default font of Outlook 2016? - outlook

Question

I want to change the default Arial Font type to Montserrat in Microsoft Office (not the 365).
I'm following what is presented here and here. I was also told that I should try running it in PowerShell but I have no idea how.
The following is what I created so far:
Sub ChangeFont()
Dim objOLApp As Outlook.Application
Dim NewTask As Outlook.TaskItem
Set objOLApp = New Outlook.Application
Set NewTask = objOLApp.CreateItem(0)
with Newtask
.DefaultFont = "Montserrat"
End With
On Error Resume Next
END Sub
WScript.Echo "Done!"
pause
exit
When save it as a .vbs file and double-click on that, I get the following error:

Answer 1

The Outlook object model doesn't provide any default font properties like shown in the code sample. Instead, you can use the HTML markup to specify a custom font for the message body. For example:
olReply.HTMLBody = "<p style='font-family:'Segoe UI'><p style='font-size:11px'>Hello, <p> The individuals(s) in the email below have been submitted to the customer today, " & strDate & olReply.HTMLBody
Or just use the Word object model like shown in the following sample VBA code:
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
The Inspector.WordEditor property returns the Microsoft Word Document Object Model of the message being displayed.