hey
The below code creates an email message. It embeds a
picture and it also creates a subject line and body and
specifys a to address. How do you make it specify font
color?
Dim szHTML As String
Dim msg As Outlook.MailItem
Dim ol, MailSendItem, olns, olMailItem
Set ol = CreateObject("Outlook.Application")
Set MailSendItem = ol.CreateItem(olMailItem)
szHTML = szHTML & "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD
HTML 4.0 Transitional//EN"""
szHTML = szHTML & "<HTML<HEAD"
szHTML = szHTML & "<META content=""text/html;
charset=iso-8859-1""http-equiv=Content-Type"
szHTML = szHTML & "<META content=""MSHTML
5.00.2314.1000""name=GENERATOR</HEAD"
szHTML = szHTML & "<DIV<IMG align=baseline alt=""""
border=0 hspace=0 "
szHTML = szHTML & "src=""G:\Sales OPs
CarTn\Reports\Templates\Verizon.gif""</DIV</BODY</HTML"
szHTML = szHTML & "Carolina/Tennessee Marketing
Update " & "</a</font </b<br<BODY" & "Metrics and
Analysis"
'"<B<font face=Arial color="#0000FF"<a href=" _ &
Report_PDF & "" & ReportDate & "</a</font</b<br"
'Set msg = Application.CreateItem(olMailItem)
MailSendItem.To
= "
MailSendItem.Subject = "Indirect Productivity -
October 2004 "
MailSendItem.HTMLBody = szHTML
MailSendItem.Send