Как вставить ссылку в электронное письмо, отправленное через Outlook, используя VB6 - PullRequest
Новая
       18

Как вставить ссылку в электронное письмо, отправленное через Outlook, используя VB6

0 голосов
/ 04 июня 2010

Я пытаюсь отправить электронное письмо через 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 - это просто строки, созданные ранее в коде.

Я попытался вставить HTML-ссылку, используя ужасную цитату VB6, надеясь, что Outlook волшебным образом разберутся: 

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

Но он не создает гиперссылку, он просто помещает полученный текст в тело письма: 

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

Как получить ссылку в сгенерированном письме?

1 Ответ

1 голос
/ 05 июня 2010

Похоже, я нашел ответ, и он был обманчиво прост. Вместо того, чтобы использовать .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
...