Thêm siêu liên kết để xuất sắc văn bản nội dung email

Question

Tôi đang cố gắng tạo email từ excel nhưng muốn thêm siêu liên kết vào văn bản nội dung email. Tôi muốn các siêu liên kết hiển thị dưới dạng văn bản chứ không phải đường dẫn tệp.

Tôi làm cách nào để thực hiện việc này?

Tôi đang sử dụng mã bên dưới.

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 

Tôi có thể sử dụng .Hyperlinks.Add không?

Answer 1

Giả sử bạn sử dụng tự động hóa triển vọng, chuyển đổi sang định dạng email HTML:

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

Và sử dụng đánh dấu cho cơ thể:

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