"Todd Huttenstine" schreef in bericht
...
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=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" & _
"</a</font </b<br<BODY" & "<font color=red<font
size=3http://webreports.south.vzwcorp.com/ngCatalog.asp?
EntryPoint=SO~W1 "
'<bbold letters</B
'"<body bgcolor=black"
'<face=Arial
szHTML = szHTML & Link
'Set msg = Application.CreateItem(olMailItem)
MailSendItem.To
= "
MailSendItem.Subject = "Indirect Productivity -
October 2004 "
MailSendItem.HTMLBody = szHTML
MailSendItem.Send
<a href="http://www.hypertest.com/" target="_blank"Hypertest</a
_blank to open the page in a new browser window, else use _top
(_self and _parent when using frames)
email link goes like this:
<a ? Subject=hypertest"
Todd Huttenstine</a