Member Avatar for 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
  • 1 Contributor
  • 2 Replies
  • 639 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by paul1145
Member Avatar for 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.

Member Avatar for 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

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.