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 

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.

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.