Установить веб-ссылку на «слово» в письме VBA - PullRequest
1 голос
/ 27 марта 2020

Если это электронное письмо не отображается должным образом, нажмите здесь .

Я хотел бы, чтобы человек в письме щелкнул по слову "здесь", а затем возьму их на сайт.

Это то, что я использовал, но просто помещает полную ссылку в электронное письмо.

mymsg = "<HTML><BODY>"
mymsg = "If this email does not display properly, please click " & "<A href=http://us.localnews.com/ov?mailing=3TVGZMLJ-WDS49&m2u=3TVGZMLK-3TVGZMLJ-12Z630I>URL Text</A>"
mymsg = mymsg & "</BODY></HYML>"

1 Ответ

2 голосов
/ 27 марта 2020

Сохраняйте это простым, нет необходимости в тегах HTML/BODY

Пример

Option Explicit
Public Sub Example()
    Dim OutApp As Object
    Set OutApp = CreateObject("Outlook.Application")

    Dim OutMail As Object
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .HTMLBody = "If this email does not display properly, please click " & _
                    "<A href=https://stackoverflow.com/>" & _
                    "Here</A>"
        .Display
    End With

End Sub

Убедитесь, что вы используя HTMLBody Свойство

MSDN - Свойство HTMLBody

Возвращает или задает строку представляющий HTML тело указанного элемента. Свойство HTMLBody должно быть синтаксической строкой HTML. Чтение / запись.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...