之前有给大家分享过一篇关于批量将word转成pdf的文件，然后将pdf文件批量按照指定收件人进行邮件发送的文章。文章可以参照：
批量发送带PDF附件的邮件
昨天一台湾的网友咨询了这个问题，同时他也给我分享了他在网上下载的另外一个版本，个人觉得很非常实用，这里给大家分享一下。文末会分享链接，大家可以下载保存，万一以后用得上呢。先来看看怎么用吧，因为中间确实有个设置需要说一下，不然只是拷贝代码的话，还是会出错。
首先打开Excel文件，其中有两个工作表，第一个是发送的清单，里面的内容很简单，如下：
工作表 - 发送清单
另外一个工作表就是邮件的标题和正文：
工作表 - 正文
写好相应的文本后，点击发送邮件按钮后，自动弹出邮箱客户端Outlook，界面是这个样子的：
Outlook发送邮件预览界面
回到Excel中，会返回一个对话框显示有多少封邮件要发送。（我这里只写了一个收件人，所以只显示了一封邮件）
Excel中弹出对话框
来看看Excel中的代码吧。（不懂没关系，主要明白你拿去之后需要改哪些地方就可以了，非常容易。）
Excel中的代码
代码很人性化，基本每一行都有注释。看看哪些地方值得关注以及后期如果拷贝代码后需要修改的。
代码中提到了这句：
代码中的设置
它这个其实是已经设置好了，如果你要拷贝代码进行使用的话，完成复制粘贴之后，运行之前需要进行一个设置，否则代码无法运行，会报错。设置如图所示：
点击工具下的引用：
工具 - 引用
调出引用-VBAProject对话框，如下：
引用对话框中的选项
一定要勾选这个：Microsoft Outlook 16.0 Object Library
这个根据你的outlook的版本来，之前那个朋友拷贝后无法运行，就是因为没有勾选此选项导致的。一定要看清楚，不要跟上面那个Microsoft Office 16.0 Object Library弄混了，各是各的。
接下来代码中：
代码中文字部分
这个发送清单，其实就是工作表的名称，对应就是Excel中的工作表这个：
对应工作表
再来就是这个“正文”：
代码中文字部分
对应的是Excel工作表中的这个：
对应工作表
如果你的工作表名称与代码中的不一致，需要进行更改。
其他的类似于Cells(1,2)，意思就是单元格第1行第2列。
我将后面的代码中进行了一下修改，因为如果不修改的话，邮件会直接发出去，而不是先预览一下。如果你的邮件相当多，最好先预览测试一下。没问题的话，再改回去就可以了。这个地方：
代码预览邮件
display就是预览的意思，如果你无需预览直接发送，改成下面这样就可以了：
代码 - 发送邮件
希望这个工具对大家有用，再次感谢来自宝岛台湾网友Kve的分享。
文中提到的链接如下：
链接：https://pan.baidu.com/s/173i3jpJGPy-rvqg3RydM4g
提取码：wasg
如果本文对你有帮助，请分享给有需要的朋友或你的朋友圈，让大家一起高效工作。
