Solved

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

Posted on 2008-10-28
1
1,980 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
1 Comment
 
LVL 3

Accepted Solution

by:
Angelized earned 250 total points
Comment Utility
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

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over  the limited options we had scripting in Task Scheduler 1.0.  As I started my journey of knowledge I f…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

728 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

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now