Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert hyperlink
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert hyperlink
"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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to insert a hyperlink in text in a paragraph | Excel Discussion (Misc queries) | |||
Insert hyperlink ini Excel | Excel Discussion (Misc queries) | |||
Hyperlink Insert Pane (Last used) | Excel Discussion (Misc queries) | |||
How do I insert the value of a cell into a Hyperlink | Excel Discussion (Misc queries) | |||
insert hyperlink | Excel Discussion (Misc queries) |