Solved

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

Posted on 2008-10-28
1
2,095 Views
Last Modified: 2012-06-27
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
Comment
Question by:jamiepryer
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 3

Accepted Solution

by:
Angelized earned 250 total points
ID: 22822276
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

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When it comes to writing scripts for a Client/Server computing environment it is essential to consider some way of enabling the authentication functionality within a script. This sort of consideration mainly comes into the picture when we are dealin…
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…

617 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question