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