邮件自动分发-04-邮件正文带图片

最新推荐文章于 2024-01-03 14:39:13 发布

Coding的巴扎黑

最新推荐文章于 2024-01-03 14:39:13 发布

阅读量2.9k

点赞数 1

分类专栏： VBA-Excel

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

版权

VBA-Excel 专栏收录该内容

39 篇文章 7 订阅

订阅专栏

微信公众号原文

系统：Windows 7
软件：Excel 2010

本系列讲讲如何使用VBA进行邮件自动分发
本文的方法借助于Outlook软件实现
今天讲讲如何在邮件正文中插入一张图片，不是以附件的形式展示
在Outlook中测试成功，在网易邮箱大师中测试只是一张缩略图

Part 1：示例

分发一个邮件，邮件的正文附着一张图片
目标在于接收方可以快速获取附件信息，无需单独打开
例如分发了一份周报，想在正文展示最重要的指标统计柱状图

Outlook效果

网易邮箱大师

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")
    currentPath = ThisWorkbook.Path
    file1 = currentPath & "\" & "image.jpg"
    
    eContent = "<html>" & _
    "<p style='color:#F00'>学习成绩单</p>" & _
    "<table border='2' width='400'>" & _
    "<tr><th>序号</th><th>姓名</th><th>语文成绩</th></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>" & _
    "<img src='cid:image.jpg' height=432 width=864>" & _
    "</html>"
    
    
    mail.To = emailReceiver
    mail.Subject = eSubject
    mail.Attachments.Add (file1)
    mail.HTMLBody = eContent
    mail.Send
    
    Set outlookApp = Nothing
    Set mail = Nothing

    MsgBox "已分发邮件"
End Sub

代码截图

Part 3：部分代码解读

<img src='cid:image.jpg' height=432 width=864>，显示图片
mail.Attachments.Add (file1)也需要将该图片以附件形式加入，其实只是换了一种显示方式
本质上来讲还是利用html的特性

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

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

公众号底部二维码.jpg

Coding的巴扎黑

关注

1
点赞
踩
12

收藏

觉得还不错? 一键收藏
0
评论
邮件自动分发-04-邮件正文带图片

微信公众号原文系统：Windows 7软件：Excel 2010本系列讲讲如何使用VBA进行邮件自动分发本文的方法借助于Outlook软件实现今天讲讲如何在邮件正文中插入一张图片，不是以附件的形式展示在Outlook中测试成功，在网易邮箱大师中测试只是一张缩略图Part 1：示例分发一个邮件，邮件的正文附着一张图片目标在于接收方可以快速获取附件信息，无需单独打开例如分...
复制链接

扫一扫