如果此电子邮件显示不正确,请单击此处。
我希望能够让电子邮件中的人点击"这里"这个词,然后它会把他们带到一个网站。
这是我一直在使用的,但它只是将完整的链接放入电子邮件中。
mymsg = "<HTML><BODY>"
mymsg = "If this email does not display properly, please click " & "<A href=http://us.localnews.com/ov?mailing=3TVGZMLJ-WDS49&m2u=3TVGZMLK-3TVGZMLJ-12Z630I>URL Text</A>"
mymsg = mymsg & "</BODY></HYML>"
保持简单,不需要HTML/BODY
标签
示例
Option Explicit
Public Sub Example()
Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim OutMail As Object
Set OutMail = OutApp.CreateItem(0)
With OutMail
.HTMLBody = "If this email does not display properly, please click " & _
"<A href=https://stackoverflow.com/>" & _
"Here</A>"
.Display
End With
End Sub
确保您使用的是HTMLBody
属性
MSDN-HTMLBody属性
返回或设置一个字符串,该字符串表示指定项的HTML正文。HTMLBody属性应该是HTML语法字符串。读/写