添加超链接来优化电子邮件正文文本

我正在尝试从Excel生成电子邮件，但想要将超链接添加到电子邮件正文文本。 我想超链接显示为文本而不是文件path。

我怎么去做这个？

我正在使用下面的代码。

strBody = "Hello " & Range("QuoteFirstName").Value & "," & _ vbNewLine & _ vbNewLine & _ "It was good to speak with you earlier today/yesterday." & _ vbNewLine & _ vbNewLine & _ "[Any personal message]" & _ vbNewLine & _ vbNewLine On Error Resume Next With OutMail .To = StrTo .CC = "" .BCC = "" .Subject = StrSubject .Body = StrBody .Attachments.Add FileNamePDF If Send = True Then .Send Else .Display End If End With 

我可以使用.Hyperlinks.Add ？

Answer 1

假设您使用Outlook自动化，切换到HTML邮件格式：

 .BodyFormat = olFormatHTML '// 2 .HTMLBody = strBody 

并为身体使用标记：

 strBody = "Hello ..<br />next line ..." & _ "Click <a href=""http://www.foo.com"">here</a> to ..."