Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
hyperlink in email
Helllo, I am using the code below to send email from
Excel. I can't figure out how to inlcude a hyperlink. TIA... Public Sub Send_Email() Dim olApp As Outlook.Application Dim olNs As Outlook.NameSpace Dim olMail As Outlook.MailItem Dim i As Byte Dim emailBody As String Set olApp = CreateObject("Outlook.Application") Set olNs = olApp.GetNamespace("MAPI") olNs.Logon Set olMail = olApp.CreateItem(olMailItem) With olMail For i = 1 To Range("Email_List1").Rows.Count .Recipients.Add Range("Email_List1")(i) Next i .Subject = ActiveWorkbook.Name ' 'Build email body ' If (pubNewReqs = True) Then emailBody = pubNewReqCnt - 1 & " Regulatory Requirements have been added for " & Range ("Regs_For").Value & "." Else emailBody = Range("Regs_For").Value & "Regulatory Requirements have been updated." End If .Body = emailBody .Links.Add = "Network or URL path to file" .OriginatorDeliveryReportRequested = False .ReadReceiptRequested = False .Recipients.ResolveAll .Send End With Set olNs = Nothing Set olApp = Nothing Set olMail = Nothing End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Email hyperlink | Excel Worksheet Functions | |||
email hyperlink | Excel Discussion (Misc queries) | |||
How to Hyperlink in an email? | Excel Discussion (Misc queries) | |||
Email via hyperlink | Excel Discussion (Misc queries) | |||
email using hyperlink | Excel Worksheet Functions |