outlook批量发送邮件附件(outlook批量发送不同内容)
多条告白如次剧本只需引入一次
本质处事中常常会遇到批量发邮件的需要,比方发送报酬条、节日歌颂、按期回报处事功效、晚报、周报、月报等，固然即使发送的邮件不是很多的话实足不妨细工发送,一旦遇到批量发送的场景,细工一份一份的发送就会变得板滞而反复处事了。今天性享一个Excel挪用电脑OutLook批量发送邮件的本领，小搭档们不妨，先保藏，等要用到的功夫不妨防患未然，平静应付，旁人加班的功夫你还不妨准点放工，那岂不是很乐哉！
一、先看看咱们须要实行的功效。
发邮件跟写公式一律大略^-^
二、还好吗才不妨实行？
道理：经过VBA设置一个发邮件的因变量，到达批量发送邮件时跟普遍公式的用法一律大略的功效。
上头的功效图中咱们设置了一个sendmail的因变量，即使你此刻翻开你的excel找这个因变量是找不到的，由于这个并不是office的内置因变量,但微软给office产物都安置了一个神本领 “宏”,表亲们该当都听过这个，这次咱先不去探求这究竟是什么货色,先看怎样实行。
简直办法：
兴建一个空缺的Excel文献。翻开Excel文献,按赶快键ALT+F11加入VBE界面。点击左边的工程窗口,点击鼠标右键,兴建一个模块。把代码贴入到模块中。回到Excel界面,发端考证发邮件因变量。上头笔墨没看懂的请看底下的演练。三、发邮件的VBA代码。
感爱好的童鞋们不妨复制以次代码按上头的操纵试一试。
'发送邮件因变量 sendto收件人多个用英文分号链接 subj邮件中心 mbody邮件正文 filepath附属类小部件路途Public Function sendmail(sendto As String, subj As String, mbody As String, filepath As String) On Error Resume Next Dim oLapp As Object Dim oItem As Object Set oLapp = CreateObject("Outlook.application") Set oItem = oLapp.createitem(0) With oItem .Subject = subj .To = sendto .htmlbody = mbody '加上这一句就不妨增添附属类小部件 .Attachments.Add filepath .Send '确定能否发送胜利 If Err.Number = 0 Then sendmail = "发送胜利" Else '即使发送波折则归来波折因为 sendmail = "发送波折:" & Err.Description End If End With Set oLapp = Nothing Set oItem = NothingEnd Function四、生存咱们设置的邮件因变量。
即使你的Excel是2007及之上本子的，生存的功夫会展示如次提醒。生存时请采用起用宏的处事簿即可。弥补证明：
2007本子及之上的Excel为了保护安定性,强迫了含VBA代码的专用文献格,常用存为xlsm方法。
2003本子的Excel,后缀是xls的Excel文献不妨径直保存VBA代码,不须要另存为其余方法。
