Outlook script to change font format on mail sent to a specific recipient

Question

I'm trying to learn VBA for a number of more appropriate uses, but this one is kind of an inside joke.   My standard email font color is purple and the text is small and 'girly" (10 point Georgia).   My warehouse manager is always picking
on me about  my email font and how his 'old eyes' can't read it.  Is there a way to write a script, or combine the rule that runs a script in order to change the font on emails sent to one specific person?  If anyone is going to bother to write
it out for me (THANK YOU in advance btw), the font I'd like to use is 14 pt Candara in black.
This is indeed more of a joke, but it will help me learn this VBA stuff.  I'm mostly using it in excel for now.
Thank you thank you thank you.

Answer 1

If you add the following macro to the ThisOutlookSession module, it will intercept your messages and if they are to '[email protected]' they are reformatted as requested - though frankly bold (included) looks better
Option Explicit
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olInsp As Inspector
Dim wdDoc As Object
Dim oRng As Object
If Item.To = "[email protected]" Then
With Item
.BodyFormat = olFormatHTML
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range
.Display
With oRng
.Font.Name = "Candara"
.Font.Bold = True
.Font.Color = &H0
.Font.Size = 14
End With
.Save
End With
End If
lbl_Exit:
Exit Sub
End Sub
Graham Mayor - Word MVP
www.gmayor.com