邮件自动分发-03-五彩缤纷的邮件正文

最新推荐文章于 2021-08-19 16:24:36 发布

Coding的巴扎黑

最新推荐文章于 2021-08-19 16:24:36 发布

阅读量421

点赞数

分类专栏： VBA-Excel

本文链接：https://blog.csdn.net/zishendianxia/article/details/90733007

版权

VBA-Excel 专栏收录该内容

39 篇文章 7 订阅

订阅专栏

微信公众号原文

系统：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 = "<html>" & _
    "<p style='color:#F00'>学习成绩单</p>" & _
    "<table border='2' width='400'>" & _
    "<tr><td>序号</td><td>姓名</td><td>语文成绩</td></tr>" & _
    "<tr><td>1</td><td>张三</td><td>80</td></tr>" & _
    "<tr><td>2</td><td>李四</td><td>90</td></tr>" & _
    "<tr><td>3</td><td style='color:#F00;font-weight:bold'>王五</td><td>95</td></tr>" & _
    "</table>" & _
    "</html>"
    
    mail.To = emailReceiver
    mail.Subject = eSubject
    mail.HTMLBody = eContent
    mail.Send
    
    Set outlookApp = Nothing
    Set mail = Nothing

    MsgBox "已分发邮件"
End Sub

代码截图

Part 3：部分代码解读

mail.HTMLBody = eContent，邮件的正文采用html的格式
所谓html可以简单理解就是你在浏览器中看到的网页，如果你是谷歌浏览器，打开一个网页，按下F12就可以看到对应的html源码
所以理论上来讲，你在其它网页上看到的一些好的表达形式，也可以在邮件中实现。当然一般也就是一些常用的功能，太复杂的没有尝试过

下节精彩：如果想分发的邮件正文直接可以看到附带的图片，而不是采用附件的形式，咋整？

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

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

公众号底部二维码.jpg

Coding的巴扎黑

关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
邮件自动分发-03-五彩缤纷的邮件正文

微信公众号原文系统：Windows 7软件：Excel 2010本系列讲讲如何使用VBA进行邮件自动分发本文的方法借助于Outlook软件实现今天讲讲如何格式化邮件正文，更加清晰好看Part 1：示例分发一个邮件，邮件的正文设置一些格式，例如字体颜色，字体粗细为了内容更有条理，邮件正文中增加了一个表格邮件分发结果Part 2：代码Sub 邮件预警() S...
复制链接

扫一扫