html有趣代码_邮件自动分发-06-邮件正文html-网址超链接

系统：Windows 7

软件：Excel 2010

• 本系列讲讲如何使用VBA进行邮件自动分发
• 本文的方法借助于Outlook软件实现
• 今天讲讲如何在邮件正文中放置网址链接，点击后直接打开对应网页

Part 1：示例

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

邮件效果

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 MsgBox "已分发邮件"End Sub

代码截图

Part 3：部分代码解读

1. 其实该功能核心载体是html，即邮箱支持对html的直接渲染，类似于浏览器的效果
2. 超链接html百度首页

Ps：通过渲染html的方式可以实现很多有趣的功能，不知你有什么想实现的，留言来看

更多请查看同名微信公众号Excel高效办公之VBA