在实际工作中，往往需要批量发送邮件，比如发工资条、节日祝福、定期汇报工作成果、日报、周报、月报等。当然，如果发送的邮件不多，可以手动发送。一旦遇到批量发送的场景，一个个手工发送就会变得机械重复。今天分享一个Excel调用电脑OutLook批量发送邮件的技巧。朋友可以先收藏，需要的时候可以有所准备，从容应对。别人加班，你可以按时下班。岂不是很好玩！
首先，看看我们需要达到的效果。
发邮件就像写公式一样简单-
二、如何实现？
原理:用VBA定义一个发邮件的功能，可以达到批量发邮件的效果，就像使用普通公式一样简单。
在上面的渲染中，我们定义了一个sendmail函数。如果你现在打开你的excel找到这个函数，你就找不到了，因为这不是office的内置函数，而是微软为office产品安装了一个神奇的技能“宏”。堂兄弟应该听说过这个。这一次我们先不调查这是什么，先看看如何实现。
具体步骤:
新建一个空白的Excel文件。打开Excel文件,按快捷键ALT+F11进入VBE界面。点击左边的工程窗口,点击鼠标右键,新建一个模块。把代码贴入到模块中。回到Excel界面,开始验证发邮件函数。上面文字没看懂的请看下面的演示。
第三，发送电子邮件VBA代码。
感兴趣的童鞋可以复制下面的代码，按照上面的操作试试。
发送邮件功能发送给收件人多个带有英文分号的链接主题邮件主题邮件正文文件路径附件路径公共功能发送邮件出错继续下一个维度OLAP作为对象维度o项目作为对象集OLA PP =创建对象集o项目= olapp。用o项创建项。subject =sub主题。to = sendto。' htmlbody = mbody '添加这句话添加附件。附件。addfilepath.send. If Err。Number = 0则sendmail = " send successfully "否则'如果发送失败，则返回失败原因sendmail = " send success:" & err。如果以set olapp = nothing set o item = nothing end函数结束，则说明结束。
如果你的Excel是2007及以上版本的，保存的时候会出现如下提示。保存时请选择启用宏的工作簿即可。
