如果此电子邮件无法正常显示，请单击此处。我希望能够让电子邮件中的人单击“此处”一词，然后将他们带到一个网站。这是我一直在使用的，但它只是将完整的链接放入电子邮件中。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>"
1 回答
ABOUTYOU
TA贡献1812条经验 获得超5个赞
保持简单，不需要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属性
返回或设置一个表示指定项目的 HTML 正文的字符串。HTMLBody 属性应该是 HTML 语法字符串。读/写。
- 1 回答
- 0 关注
- 92 浏览
添加回答
举报
0/150
提交
取消