添加超链接到excel电子邮件正文文本

Question

我试图从excel生成电子邮件，但要添加超链接到电子邮件正文文本。我希望超链接显示为文本，而不是文件路径。

我该怎么做呢?

我使用下面的代码。

    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 ..."