T
Todd Huttenstine
how do I make one of the lines in the body of this email
(This code creates and sends an email message) be
underlined?
Dim szHTML As String
Dim msg As outlook.MailItem
Dim ol, MailSendItem, olns, olMailItem
Dim HyperLink
Set ol = CreateObject("Outlook.Application")
Set MailSendItem = ol.CreateItem(olMailItem)
HyperLink = "<tr>" & vbCrLf & "<td>" & "<a href='"
& "http://webreports.south.vzwcorp.com/ngCatalog.asp?
EntryPoint=SO~W1"
HyperLink = HyperLink & intyear & ".com'>" & "<font
color=black><font
size=3>http://webreports.south.vzwcorp.com/ngCatalog.asp?
EntryPoint=SO~W1"
'"http://webreports.south.vzwcorp.com"
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"
szHTML = szHTML & "<HTML><H2><font color=black><font
size=3>Carolina/Tennessee Marketing Update" & _
"</a></font ></b><br><BODY>" & "<font
color=black><font size=3>Metrics and Analysis" & _
"</a></font ></b><br><BODY>" & _
"</a></font ></b><br><BODY>" & "<font color=red><font
size=3>***Please use NEW Link to web reports included with
this e-mail****" & _
"</a></font ></b><br><BODY>" & "<font
color=black><font size=3>Indirect Productivity has been
updated through October 1-28, 2004." & _
"</a></font ></b><br><BODY>"
'<b>bold letters</B>
'"<body bgcolor=black>"
'<face=Arial>
szHTML = szHTML & HyperLink
'Set msg = Application.CreateItem(olMailItem)
MailSendItem.To
= "(e-mail address removed)"
MailSendItem.Subject = "Indirect Productivity -
October 2004 "
MailSendItem.HTMLBody = szHTML
MailSendItem.Send
(This code creates and sends an email message) be
underlined?
Dim szHTML As String
Dim msg As outlook.MailItem
Dim ol, MailSendItem, olns, olMailItem
Dim HyperLink
Set ol = CreateObject("Outlook.Application")
Set MailSendItem = ol.CreateItem(olMailItem)
HyperLink = "<tr>" & vbCrLf & "<td>" & "<a href='"
& "http://webreports.south.vzwcorp.com/ngCatalog.asp?
EntryPoint=SO~W1"
HyperLink = HyperLink & intyear & ".com'>" & "<font
color=black><font
size=3>http://webreports.south.vzwcorp.com/ngCatalog.asp?
EntryPoint=SO~W1"
'"http://webreports.south.vzwcorp.com"
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"
szHTML = szHTML & "<HTML><H2><font color=black><font
size=3>Carolina/Tennessee Marketing Update" & _
"</a></font ></b><br><BODY>" & "<font
color=black><font size=3>Metrics and Analysis" & _
"</a></font ></b><br><BODY>" & _
"</a></font ></b><br><BODY>" & "<font color=red><font
size=3>***Please use NEW Link to web reports included with
this e-mail****" & _
"</a></font ></b><br><BODY>" & "<font
color=black><font size=3>Indirect Productivity has been
updated through October 1-28, 2004." & _
"</a></font ></b><br><BODY>"
'<b>bold letters</B>
'"<body bgcolor=black>"
'<face=Arial>
szHTML = szHTML & HyperLink
'Set msg = Application.CreateItem(olMailItem)
MailSendItem.To
= "(e-mail address removed)"
MailSendItem.Subject = "Indirect Productivity -
October 2004 "
MailSendItem.HTMLBody = szHTML
MailSendItem.Send