Dodawanie hiperłączy do doskonalenia treści wiadomości e-mail

Question

Próbuję generować wiadomości e-mail z programu Excel, ale chcę dodać hiperłącza do treści wiadomości e-mail. Chcę, aby hiperłącza były wyświetlane jako tekst, a nie ścieżki plików.

Jak miałbym to zrobić?

Używam poniższego kodu.

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 

Czy mogę użyć .Hyperlinks.Add?

Answer 1

Zakładając używasz automatyzację Outlook, przełącznik do formatu poczty HTML:

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

I używać znaczników dla ciała:

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