如何將鏈接插入通過Outlook使用VB6發送的電子郵件

我試圖通過Outlook從VB6程序內發送電子郵件。目前爲止一切正常，我的電子郵件已成功發送。我想向收件人發送電子郵件正文中的鏈接，但是，該鏈接會將它們發送到網絡目錄。我似乎無法獲得電子郵件正文中的超鏈接。如何將鏈接插入通過Outlook使用VB6發送的電子郵件

我發送電子郵件迄今代碼如下所示：

Dim outlookApp As Outlook.Application 
Dim resultsEmail As Outlook.MailItem 

Set outlookApp = CreateObject("Outlook.Application") 
Set resultsEmail = Outlook.CreateItem(olMailItem) 

    With resultsEmail 
     .To = addressee 
     .Subject = emailSubject 
     .Body = "Results are available here: " & 'somehow put in a hyperlink 
     .Send 
    End With

收件人和Emailsubject的只是前面的代碼中創建的字符串。

我試圖將使用VB6的可怕的報價逃脫的HTML鏈接，希望展望會神奇地整理出來：

"<a href" & ch=" & chr(34) & "directoryLocation" & chr(34) & ">Link text</a>"

但它不會創建超鏈接，它只是把結果文本中的身體電子郵件：

<a href="url">Link text</a>

如何在生成的電子郵件中獲得鏈接？

來源

2010-06-04 Michael

在Outlook中產生的郵件HTML正確嗎？不是純文本？因爲如果它是純文本就會發生。 – 2010-06-04 19:56:03

你能告訴我們更多你的代碼嗎，'resultsEmail'是什麼類型？ – 2010-06-04 20:04:58

resultsEmail是一個olMailItem。我擴展了上面的代碼。馬克 - 我不知道如何設置和電子郵件通過我使用的方法是HTML或純文本。 – Michael 2010-06-04 20:16:18

看起來我找到了答案，它看似簡單。而不是使用.body，我需要插入HTML鏈接，因爲我張貼並使用.HTMLBody代替：

With resultsEmail 
    .To = addressee 
    .Subject = emailSubject 
    .HTMLBody = "Results are available here: " & _ 
     "<a href" & ch=" & chr(34) & "directoryLocation" & chr(34) & ">Link text</a>" 
    .Send 
End With

來源

2010-06-04 20:25:30 Michael

如何將鏈接插入通過Outlook使用VB6發送的電子郵件

回答

相關問題