• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2282
  • Last Modified:

VBS for BodyFormat = olFormatRichText - making an outlook email look better?

Hi, using VB, how would I set a line of my code, to generate some text in bold/italic/underline?
At the moment, its all plain txt.
Im using outlook 2003 and excel as a bulk email generator.

myItem.BodyFormat = olFormatRichText
myItem.Body = _
            "Dear " & Trim(ManagerFirstName) & "," & vbCrLf _
            & vbCrLf _
            & "I want this txt to be bold" & vbCrLf _
            & vbCrLf _
            & ApplicationName & " I want this to be in red font and underlined." & vbCrLf _
            & vbCrLf _

So using the richtext feature, how do I add rich text
I would rather not use HTML if possible, unless this is a lot easier/better

also, if your posting links, can you also post some text (from the link too) as the internet in the office doesnt let you get onto many sites - please!
0
jamiepryer
Asked:
jamiepryer
1 Solution
 
AngelizedCommented:
This basically how to code and HTML message ( i found it personnaly easier than RTF)
The best is to create your message with outlook (switch it to HTML and view source)
You can use of course any HTML editor.
.HTMLBody  Will contain the string. what you need to do once you have the template created   is to replace the field with what you need. Here is an example attached.
Firstname, lastname and ADID are variable that you need to fill out. (like Trim(ManagerFirstName) in your example.
How this is enought as a first draft, lemme know if you need more info.

 verdana = "<P><font size=2 color=navy  face = Verdana >"
      Size2 = "<P><FONT size=2>"
      HtmlEnd = "</FONT></P>"
      htmlBreak = "<P></P>"
      HtmlMsg = verdana & "Hi," & HtmlEnd
      HtmlMsg = HtmlMsg & verdana & "The following, Active Directory account has been updated :" & HtmlEnd & verdana
      HtmlMsg = HtmlMsg & "<TABLE><TBODY>"
      HtmlMsg = HtmlMsg & "<FONT face=Verdana size=0>"
      HtmlMsg = HtmlMsg & "<TR><TD><B>" & Size2 & "First Name: </B></TD> <TD>" & Size2 & FirstName & "</TD></TR>"
      HtmlMsg = HtmlMsg & "<TR><TD><B>" & Size2 & "Last Name: </B></TD> <TD>" & Size2 & Lastanme & "</TD></TR>"
      HtmlMsg = HtmlMsg & "<TR><TD><B>" & Size2 & "Active Directory ID: </B></TD> <TD>" & Size2 & ADID & "</TD></TR>"
      HtmlMsg = HtmlMsg & "</FONT>"
      HtmlMsg = HtmlMsg & "</TBODY></TABLE>"
      .HTMLBody = HtmlMsg

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Introducing Cloud Class® training courses

Tech changes fast. You can learn faster. That’s why we’re bringing professional training courses to Experts Exchange. With a subscription, you can access all the Cloud Class® courses to expand your education, prep for certifications, and get top-notch instructions.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now