具体工作上常常会碰到批量发邮件的要求,例如发送工资单、节日祝愿、按时汇报成效、日报、周刊、月报等，自然假如发送的邮件并不是许多得话完完全全可以手工制作发送,一旦碰到批量发送的情景,手工制作一份一份的发送便会越来越机械设备而低效率了。今日介绍一个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 = Nothing End Function
四、储存大家界定的邮件函数。
- 假如你的Excel是2007及以上版本号的，储存的过程中会产生如下所示提醒。
- 储存时请选择启用宏的工作簿就可以。
补充说明：
2007版本号及以上的Excel为了确保安全系数,强制性了含VBA编码的专用型文档格,常见存成xlsm文件格式。
2003版本号的Excel,后缀名是xls的Excel文档可以同时储存VBA编码,不用另存别的文件格式。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
