Outlook automation formatting text

[Giganews]

I am currently working on an Outlook automation module in an Access 97
database. All is working well except now the client wants the generic email
body to contain certain sections in red text and others in blue text. Can
this be done? If so how? I understand that I may have to send this email in
HTML format which is not a problem. Any help would be much appreciated.

Mark

[Barmaley]

"Giganews" <he******@yahoo.com> wrote in message
news:oq********************@comcast.com...

I am currently working on an Outlook automation module in an Access 97
database. All is working well except now the client wants the generic email body to contain certain sections in red text and others in blue text. Can
this be done? If so how? I understand that I may have to send this email in HTML format which is not a problem. Any help would be much appreciated.

Mark

Try this
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub Send_HTML_email()
Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim myItem As Object
Dim msg As Object

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set myItem = olApp.CreateItem(olMailItem)
Q = Chr(34)
Br = ">"

Email_Body = "Build your HTML code here"
myItem.Display

myItem.To = "your recepient"
myItem.Subject = Date & " " & Time '"HTML test"
myItem.HTMLBody = Email_Body

myItem.Send
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

AvP

[Giganews]

Barmaley,

Thanks for your reply but I am not sure I understand. Does the Q = Chr(34)
and BR=">" mean something? I have code similar to the below already built
and the process runs fine. I am just not sure were in the Email_Body =
section due I put HTML code to make the text different colors. I am not sure
how to write this. I have always used just plain text as the body during
automation in the past.

Thanks,
Mark


"Barmaley" <so*****@nowhere.com> wrote in message
news:d4**********@cnss.gov.ab.ca...

"Giganews" <he******@yahoo.com> wrote in message
news:oq********************@comcast.com...

I am currently working on an Outlook automation module in an Access 97
database. All is working well except now the client wants the generic

email

body to contain certain sections in red text and others in blue text. Can
this be done? If so how? I understand that I may have to send this email

in

HTML format which is not a problem. Any help would be much appreciated.

Mark

Try this
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub Send_HTML_email()
Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim myItem As Object
Dim msg As Object

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set myItem = olApp.CreateItem(olMailItem)
Q = Chr(34)
Br = ">"

Email_Body = "Build your HTML code here"
myItem.Display

myItem.To = "your recepient"
myItem.Subject = Date & " " & Time '"HTML test"
myItem.HTMLBody = Email_Body

myItem.Send
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

AvP