如果此電子郵件無法正常顯示，請單擊此處。我希望能夠讓電子郵件中的人單擊“此處”一詞，然后將他們帶到一個(gè)網(wǎng)站。這是我一直在使用的，但它只是將完整的鏈接放入電子郵件中。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 回答
ABOUTYOU
TA貢獻(xiàn)1812條經(jīng)驗(yàn) 獲得超5個(gè)贊
保持簡單，不需要HTML/BODY標(biāo)簽
例子
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屬性
返回或設(shè)置一個(gè)表示指定項(xiàng)目的 HTML 正文的字符串。HTMLBody 屬性應(yīng)該是 HTML 語法字符串。讀/寫。
- 1 回答
- 0 關(guān)注
- 127 瀏覽
添加回答
舉報(bào)
0/150
提交
取消