vba 接收新邮件后保存附件（如何利用VBA发送带附件的电子邮件）

【分享成果，随喜正能量】生气时讲的话不经大脑，是很容易得罪人的，就像钉子钉墙一样，就算第二天把钉子从墙上拔出来，墙依然会有孔。不懂就多琢磨，多观察多看书，别开口就问，没人有必要去无条件教会你所有事情，至于不了解的东西，也不要随便评价，因为你只看到你看到的，真正的东西你未必能懂。三岁学说话，一生学闭嘴。

《VBA信息获取与处理》教程是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。

教程共两册，八十四讲。今日的内容是专题五“利用VBA发送电子邮件”的第1讲：如何利用VBA发送带附件的电子邮件

第一节 利用VBA发送附件电子邮件

这个专题的第一节是利用VBA发送附件电子邮件，用电子邮件发送一个附件，在我们日常工作中是随处可见，也是我们大多数日常工作处理事务之一，如果你处在一个管理部门，下发一些通知类的附件是非常正常的工作，我们在工作中最常用的是群发。但这种邮件往往不能体现部门的针对性，很多职能部门对于邮件的处理是有区别对待的，对于这类群发的邮件往往重视不足。如何做到邮件下发具有针对性能呢？我们来看下面的实例：

上图中，我要利用VBA将某个安全生产的通知文件下发给各个工厂，同时提供了每个部门的邮箱（示例给的邮件是测试用的，均为同样的地址）。要发送的是附件和上述工作表的一个界面文件，该如何做到呢？

1 利用工作表的相关属性完成在工作表界面发送邮件

为了完成上面的任务，我们看下面的代码：

Sub myNZ()

Sheets("Sheet1").Select

Application.EnableEvents = False

'设置附件的地址

strWJ = ThisWorkbook.Path & "\005关于安全生产的通知.docx"

i = 3

Do While Cells(i, 1) <> ""

'如果没有选择，那么将发送整个工作表的内容。

Range("B1:E" & Range("E2").End(xlDown).Row).Select

ActiveWorkbook.EnvelopeVisible = True '可以添加标题设置注释

With ActiveSheet.MailEnvelope

'设置添加的可选介绍字段文本到电子邮件正文，标题设置注释

strText = Cells(i, 2) & " " & Cells(i, 3) & " " & Cells(i, 4) & "您好：" & vbCrLf & " 附件是給您" & _

"的重要文件，请查收！"

.Introduction = strText

With .Item

.To = Cells(i, 1).Value '收件人

.CC = "nesang@189.cn" '抄送地址

.Subject = "重要文件发放" '邮件名称

'添加附件

.Attachments.Add strWJ

'发送邮件

.Send

End With

End With

i = i 1

Loop

ActiveWorkbook.EnvelopeVisible = False

Application.EnableEvents = True

End Sub

代码截图：

2 附带附件邮件的发送过程讲解

1）Application.EnableEvents = False 这句代码是屏蔽了事件的触发过程，这样做的目的是避免形成一个死循环

2）strWJ = ThisWorkbook.Path & "\005关于安全生产的通知.docx" 这句代码的意义是设置附件的地址，注意是fullname，包括路径，ThisWorkbook.Path是指当前文件的路径，本文中的例子就是放在当前文件的同文件夹下面。附件是“005关于安全生产的通知.docx”，是一个word文档。

3）Range("B1:E" & Range("E2").End(xlDown).Row).Select 这句代码的意义是选择发送工作表的范围，如果没有选择，那么将发送整个工作表的内容，由于我们的工作表中有发送按钮所以没有必要发送整个工作表，如图：

上面红色部分是将要发生工作表的范围。

4） ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

'设置添加的可选介绍字段文本到电子邮件正文，标题设置注释

strText = Cells(i, 2) & " " & Cells(i, 3) & " " & Cells(i, 4) & "您好：" & vbCrLf & " 附件是給您" & _

"的重要文件，请查收！"

.Introduction = strText

上面的代码首先设置为可以添加标题设置注释，然后设置这段文字为strText = Cells(i, 2) & " " & Cells(i, 3) & " " & Cells(i, 4) & "您好：" & vbCrLf & " 附件是給您" & "的重要文件，请查收！"，添加的动作是.Introduction = strText。

5） With .Item

.To = Cells(i, 1).Value '收件人

.CC = "nesang@189.cn" '抄送地址

.Subject = "重要文件发放" '邮件名称

'添加附件

.Attachments.Add strWJ

'发送邮件

.Send

End With

上面的代码将对邮件的发送进行设置，.To = Cells(i, 1).Value 是设置收件人；.CC = nesang@189.cn是设置邮件的抄送地址；.Subject = "重要文件发放" 是设置邮件的名称；

.Attachments.Add strWJ，是设置添加附件；.Send是发送邮件的动作。

6） ActiveWorkbook.EnvelopeVisible = False

Application.EnableEvents = True

上述代码是关闭邮件的注释及打开事件的触发。

3 邮件的发送效果

当我们单击：“利用VBA发送带附件的邮件”，

这个时候会按行给每个行的邮件地址分别发送邮件,效果如下：

注意点：在发送邮件的时候，注意OUTLOOK要处于打开的状态。

本节知识点回向：如何实现工作表界面发送带附件的电子邮件？如何实现工作表界面指的范围内容的发送？

本专题参考程序文件：005工作表.XLSM

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：

,