Сохраняйте это простым, нет необходимости в тегах 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. Чтение / запись.