|
Underline
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=3http://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=3Carolina/Tennessee Marketing Update" & _ "</a</font </b<br<BODY" & "<font color=black<font size=3Metrics 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=3Indirect Productivity has been updated through October 1-28, 2004." & _ "</a</font </b<br<BODY" '<bbold letters</B '"<body bgcolor=black" '<face=Arial szHTML = szHTML & HyperLink 'Set msg = Application.CreateItem(olMailItem) MailSendItem.To = " MailSendItem.Subject = "Indirect Productivity - October 2004 " MailSendItem.HTMLBody = szHTML MailSendItem.Send |
Underline
"Todd Huttenstine" schreef in bericht ... 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=3http://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=3Carolina/Tennessee Marketing Update" & _ "</a</font </b<br<BODY" & "<font color=black<font size=3Metrics 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=3Indirect Productivity has been updated through October 1-28, 2004." & _ "</a</font </b<br<BODY" '<bbold letters</B '"<body bgcolor=black" '<face=Arial szHTML = szHTML & HyperLink 'Set msg = Application.CreateItem(olMailItem) MailSendItem.To = " MailSendItem.Subject = "Indirect Productivity - October 2004 " MailSendItem.HTMLBody = szHTML MailSendItem.Send wasn't that <u</u |
| All times are GMT +1. The time now is 12:33 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com