T
Todd Huttenstine
In the below code, I want to insert a hyperlink into the
email body.
How would I do this?
Thanks
Dim szHTML As String
Dim msg As outlook.MailItem
Dim ol, MailSendItem, olns, olMailItem
Dim HLink
Set ol = CreateObject("Outlook.Application")
Set MailSendItem = ol.CreateItem(olMailItem)
'"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>" & _
"</a></font ></b><br><BODY>" & "<font color=red><font
size=3>http://webreports.south.vzwcorp.com/ngCatalog.asp?
EntryPoint=SO~W1 "
'<b>bold letters</B>
'"<body bgcolor=black>"
'<face=Arial>
szHTML = szHTML & Link
'Set msg = Application.CreateItem(olMailItem)
MailSendItem.To
= "(e-mail address removed)"
MailSendItem.Subject = "Indirect Productivity -
October 2004 "
MailSendItem.HTMLBody = szHTML
MailSendItem.Send
email body.
How would I do this?
Thanks
Dim szHTML As String
Dim msg As outlook.MailItem
Dim ol, MailSendItem, olns, olMailItem
Dim HLink
Set ol = CreateObject("Outlook.Application")
Set MailSendItem = ol.CreateItem(olMailItem)
'"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>" & _
"</a></font ></b><br><BODY>" & "<font color=red><font
size=3>http://webreports.south.vzwcorp.com/ngCatalog.asp?
EntryPoint=SO~W1 "
'<b>bold letters</B>
'"<body bgcolor=black>"
'<face=Arial>
szHTML = szHTML & Link
'Set msg = Application.CreateItem(olMailItem)
MailSendItem.To
= "(e-mail address removed)"
MailSendItem.Subject = "Indirect Productivity -
October 2004 "
MailSendItem.HTMLBody = szHTML
MailSendItem.Send