Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Checkbox to change background color, font color and remove/ add bo | Excel Discussion (Misc queries) | |||
Conditional Format for font color using font color | Excel Worksheet Functions | |||
Changing Font color based on font type or size | Excel Discussion (Misc queries) | |||
Default Border, Font Color, and Cell Background Color | Excel Discussion (Misc queries) | |||
My fill color and font color do not work in Excel Std Edition 2003 | Excel Discussion (Misc queries) |