0
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 
1
Contributor
2
Replies
25
Views
2 Years
Discussion Span
Last Post by paul1145
0

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.

0

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

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.