Добавление гиперссылок на текст основного текста 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

Предположив вашу помощь автоматизации мировоззрения, переключатель в формат HTML почты:

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

И использовать разметку для тела:

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