邮件自动分发-06-邮件正文html-网址超链接

系统：Windows 7软件：Excel 2010

本系列讲讲如何使用VBA进行邮件自动分发

本文的方法借助于Outlook软件实现

今天讲讲如何在邮件正文中放置网址链接，点击后直接打开对应网页

Part 1：示例

效果如下图，点击超链接蓝色字体即可打开百度首页（以默认浏览器打开）
使用场景介绍：类似于预警及提醒系统，发邮件提醒，并在正文中提供网址，相应操作在对应网页上

邮件效果

Part 2：代码

Sub 邮件预警()

复制代码

Set sht = ThisWorkbook.Worksheets("示例")

复制代码

Set outlookApp = CreateObject("Outlook.Application")

复制代码

Set mail = outlookApp.CreateItem(0)

复制代码

emailReceiver = sht.Cells(2, "A")

复制代码

eSubject = sht.Cells(2, "B")

复制代码

eContent = "" & _

复制代码

"超链接展示" & _

复制代码

"百度首页" & _

复制代码

""

复制代码

mail.To = emailReceiver

复制代码

mail.Subject = eSubject

复制代码

mail.HTMLBody = eContent

复制代码

mail.Send

复制代码

Set outlookApp = Nothing

复制代码

Set mail = Nothing

复制代码

[/code][code] MsgBox "已分发邮件"

复制代码

End Sub

复制代码

[/code]
代码截图
[img]https://201907.oss-cn-shanghai.aliyuncs.com/wc/1811847-840ef69f69a96484de9d22a54caca0ce[/img]
Part 3：部分代码解读
[img]https://201907.oss-cn-shanghai.aliyuncs.com/wc/1811847-4c1115b598cea1a432468942e4f5cda5[/img]
[list=1][*]其实该功能核心载体是[code]html

复制代码

，即邮箱支持对html的直接渲染，类似于浏览器的效果

超链接html

百度首页

复制代码

Ps：通过渲染

html

复制代码

的方式可以实现很多有趣的功能，不知你有什么想实现的，留言来看

传送门

- 更多学习交流，可加小编微信号learningBin

更多精彩，请关注微信公众号扫描二维码，关注本公众号