Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

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

Posted on 2008-10-28
1
Medium Priority
?
2,165 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 750 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

[Webinar] Cloud Security

In this webinar you will learn:

-Why existing firewall and DMZ architectures are not suited for securing cloud applications
-How to make your enterprise “Cloud Ready”, and fix your aging DMZ architecture
-How to transform your enterprise and become a Cloud Enabler

Question has a verified solution.

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

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…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This course is ideal for IT System Administrators working with VMware vSphere and its associated products in their company infrastructure. This course teaches you how to install and maintain this virtualization technology to store data, prevent vuln…
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…
Suggested Courses

916 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