Get Outlook font, Change, then set

[paul1145]

Public Function setEmailSend(ByVal sSubject As String, ByVal sBody As String, _
                    ByVal sTo As String) As Boolean

    Dim oApp As Outlook._Application
    Dim oMsg As Outlook._MailItem

    setEmailSend = False
    oApp = New Outlook.Application
    oMsg = CType(oApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook._MailItem)
    oMsg.BodyFormat = Outlook.OlBodyFormat.olFormatRichText
    oMsg.Subject = sSubject
    oMsg.To = sTo
    'here I need the current font
    'then change it to Courier, 10
    oMsg.Body = sBody
       ' then change back to originally set font

End function 

[paul1145]

If this can't be done, don't be afraid to say so.
I'm using Visual studio 2010, just trying to change the font
in the email to Courier New, 10 pt.

[paul1145]

I just want to call this solved althoughit isn't. I'vedded some HTML to change the font of the message. Thank you all for looking.

Paul