Need simple macro to change font and color

I often have to send email of copied/pasted text. I want to be able to run a macro to change the format of this text depending on where its being copied from. In Word I could just use the following code, but I need it converted to the Outlook object model which I'm not familiar with. Anyone who can fix it or point me to where I can find the correct information I'd be very grateful.

Thanks!

Code:

Selection.Font.Color = wdColorRed     Selection.Font.Name = "Times New Roman"     Selection.Font.Size = 10

Found a solution!

Code:

Dim msg As Outlook.MailItem     Dim insp As Outlook.Inspector         CR = Chr(13)         Set insp = Application.ActiveInspector     If insp.CurrentItem.Class = olMail Then         Set msg = insp.CurrentItem         If insp.EditorType = olEditorHTML Then             Set hed = msg.GetInspector.HTMLEditor             Set rng = hed.Selection.createRange             newStr = Replace(rng.Text, CR, "<br/>")             'MsgBox (newStr)             rng.pasteHTML "<font style='color: blue; font-family:Times New Roman; font-size: 10pt;'>" & newStr & "</font><br/>"         End If     End If     Set insp = Nothing     Set rng = Nothing     Set hed = Nothing     Set msg = Nothing