ईमेल बॉडी टेक्स्ट एक्सेल ईमेल करने के लिए हाइपरलिंक्स जोड़ना

Question

मैं एक्सेल से ईमेल जेनरेट करने की कोशिश कर रहा हूं लेकिन ईमेल बॉडी टेक्स्ट में हाइपरलिंक्स जोड़ना चाहता हूं। मैं चाहता हूं कि हाइपरलिंक टेक्स्ट के रूप में दिखें, न कि फ़ाइल पथ।

मैं यह करने के बारे में कैसे जाउंगा?

मैं नीचे दिए गए कोड का उपयोग कर रहा हूं।

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