E-posta gövdesi metnini excel için hiperlink ekleme

Question

Excel'den e-postalar oluşturmaya çalışıyorum ancak e-posta gövdesi metnine köprüler eklemek istiyorum. Köprülerin dosya yolları olarak değil, metin olarak gösterilmesini istiyorum.

Bunu yapmak için nasıl giderim?

Aşağıdaki kodu kullanıyorum.

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 kullanabilir miyim?

Answer 1

varsayarsak senin HTML posta biçimine görünüm otomasyonu, anahtarını kullanarak:

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

Ve vücut için işaretlemeyi kullanın:

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