将 Web 链接设置为 VBA 电子邮件中的“单词”答案

【问题标题】：Set a web link to a "word" in a VBA email将 Web 链接设置为 VBA 电子邮件中的“单词”
【发布时间】：2020-07-08 14:19:54
【问题描述】：

如果此电子邮件无法正常显示，请点击此处。

我希望能够让电子邮件中的人点击“这里”这个词，然后它会将他们带到一个网站。

这是我一直在使用的，但它只是将完整链接放入电子邮件中。

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 excel vba outlook

【解决方案1】：

保持简单，不需要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 Property

返回或设置一个字符串，表示指定项目的 HTML 正文。 HTMLBody 属性应该是一个 HTML 语法字符串。读/写。

【讨论】：

遗憾的是，它仍在通过电子邮件发送完整链接。
@Jay 你在用HTMLBody 吗？你能发布你的代码，这样我就可以运行测试了
抱歉，我没有使用 HTMLBody。谢谢