系统:Windows 7
软件:Excel 2010
- 本系列讲讲如何使用VBA进行邮件自动分发
- 本文的方法借助于Outlook软件实现
- 今天讲讲如何在邮件正文中放置网址链接,点击后直接打开对应网页
Part 1:示例
- 效果如下图,点击超链接蓝色字体即可打开百度首页(以默认浏览器打开)
- 使用场景介绍:类似于预警及提醒系统,发邮件提醒,并在正文中提供网址,相应操作在对应网页上
邮件效果
![2f8d229a16278163f2891840e1491bd3.png](https://i-blog.csdnimg.cn/blog_migrate/d9651f06f1395fa67406c69f49ef70ff.jpeg)
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
代码截图
![62a3537b18109ef290d9884a13f59aaf.png](https://i-blog.csdnimg.cn/blog_migrate/b8f7d7a88c41018727442f65cbe33c4a.jpeg)
Part 3:部分代码解读
- 其实该功能核心载体是html,即邮箱支持对html的直接渲染,类似于浏览器的效果
- 超链接html百度首页
Ps:通过渲染html的方式可以实现很多有趣的功能,不知你有什么想实现的,留言来看
更多请查看同名微信公众号Excel高效办公之VBA