Font Colour Query

[Chris Williamson]

Hi Guys,

I've got a little query here regarding font colour...

This code opens a new email message, the font colour in the body of the email mesage is all black.

What I would like is the last three lines "Text Line 3, 4 and 5" to be in a different colour... eg Gray rather than Black.

How do you do that?

[SIZE=3][FONT=Arial]Set olApp = CreateObject("Outlook.Application")<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Arial]Set newmessage = olApp.CreateItem(0)<o:p></o:p>[/FONT][/SIZE]
<o:p></o:p>
[SIZE=3][FONT=Arial]newmessage.SentOnBehalfOfName = Worksheets("Sheet1").Range("A1").Value<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Arial]newmessage.To = Worksheets("Sheet1").Range("A2").Value<o:p></o:p>[/FONT][/SIZE]
<o:p></o:p>
[SIZE=3][FONT=Arial]newmessage.body = "Dear Sir/Madam," & Chr(13) & Chr(13) _<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Arial]& "Text Line 1" & Chr(13) & Chr(13) _<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Arial]& "Text Line 2" & Chr(13) & Chr(13) & Chr(13) _<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Arial]& "Text Line 3" & Chr(13) _<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Arial]& "Text Line 4" & Chr(13) _<o:p></o:p>[/FONT][/SIZE]
[FONT=Arial][SIZE=3]& "Text Line 5"[/SIZE][/FONT]
<o:p></o:p>
[SIZE=3][FONT=Arial]newmessage.Display<o:p></o:p>[/FONT][/SIZE]
[SIZE=3][FONT=Arial]Set olApp = Nothing<o:p></o:p>[/FONT][/SIZE]
[FONT=Arial][SIZE=3]Set newmessage = Nothing[/SIZE][/FONT]