phpmail发送附件技巧_若何运用VBA发送带附件的电子邮件

文章目录 [+]

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

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

phpmail发送附件技巧_若何运用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

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