Dumferling
Member
- Local time
- Today, 07:39
- Joined
- Apr 28, 2020
- Messages
- 102
I want to email a hyperlink to selected persons. The hyperlink points to a corporate intranet and the only recipients are internal so the email should allow it. The hyperlink is stored in a table as a hyperlink and the code pick it up and puts it in the .html of an email. It all works fine until I try to click on the hyperlink in the email and nothing happens. The hyperlink is there (I can see the hyplink if I hover) but it simply doesn't open a browser.
My code is:
vblLink = Me.LPLink
'Set appOutlook = CreateObject("Outlook.Application")
Set MailOutlook = appOutlook.CreateItem(olMailItem)
With MailOutlook
.BodyFormat = 2
.To = strList
'.cc = ""
'.bcc = ""
.Subject = "Regulatory Update"
.HTMLBody = "Hi <br> <br>'" & vblContent & "'<br> <br> <a href='" & vblLink & "'>Click to view update</a> <br> <br> Regards <br> <br>
It should work but it doesn't. Am I missing something? I am on Office 365.
My code is:
vblLink = Me.LPLink
'Set appOutlook = CreateObject("Outlook.Application")
Set MailOutlook = appOutlook.CreateItem(olMailItem)
With MailOutlook
.BodyFormat = 2
.To = strList
'.cc = ""
'.bcc = ""
.Subject = "Regulatory Update"
.HTMLBody = "Hi <br> <br>'" & vblContent & "'<br> <br> <a href='" & vblLink & "'>Click to view update</a> <br> <br> Regards <br> <br>
It should work but it doesn't. Am I missing something? I am on Office 365.