Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Underline | Excel Discussion (Misc queries) | |||
underline | Excel Discussion (Misc queries) | |||
Borders nor underline commands remove an unusual underline. ?? | Excel Discussion (Misc queries) | |||
Underline | New Users to Excel | |||
How do I underline? | Excel Worksheet Functions |