Question

我正在尝试通过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

addressee和emailSubject只是代码中早期创建的字符串。

我尝试使用VB6的可怕引用转义插入HTML链接，希望Outlook能够神奇地将其排序：

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

但是它没有创建超链接，它只是将结果文本放在电子邮件正文中：

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

如何在生成的电子邮件中获取链接？

Answer 1

看起来我找到了答案，看起来很简单。而不是使用.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

如何使用VB6将链接插入通过Outlook发送的电子邮件中

1 个答案: