如何将链接插入通过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发送的电子邮件

回答

相关问题