Office办公自动化(QQ邮箱自动批量发送邮件)

这个问题之前给大家分享过，不过大家问的问题也比较多，主要是集中在：带多个附件的情况和签名的问题上。这次就看看怎么解决吧。

之前提供的模板是这样的：

这里特别强调一下的是，附件地址一定不要为空，否则点击按键不会有任何反应。

先来说多个附件吧，这里也分两种情况：

一种是要给所有人都发送两个附件，第二种是有些人发送两个，有些人只发送1个附件。

先说第一种情况，给所有人都发送两个附件。

既然是要发送多个附件（先假设两个附件，两个以上的情况依照下面的方法类推即可），那我们就增加一列再如同上面一样的附件地址：

完成之后，通过ALT+F11打开VB编辑窗口，找到下面的这段代码：

直接在这个后面增加一句，修改完成后如下：

然后找到下面这一句：

在这个后面也增加一句，修改完成后如下：

返回到Excel工作表中直接去点击发送邮件看效果：

是不是就成功实现了。

这个执行的前提同样要给大家强调一下的是：附件地址1和附件地址2缺一不可，任何一个附件地址是空着的，邮件就不会被执行哦。

所以情况二就来了，如果有的只发送一个，有的要发送两个，怎么办？继续改一下，我们先将Excel工作表中的内容填充一下，比如第二个人只发送一个附件，附件地址2空着先不填，稍后执行看效果：

再次进入到VB编辑器界面中：

这一句不用改动了，保持原样不变，看到这里：

在这个语句的后面增加一个条件语句，意思就是：当附件地址2有内容的时候，就把地址2中间的内容添加到邮件中。修改后的内容是这样的：

完成之后，回到Excel工作表点击发送邮件的按键执行一下看看结果：

成功执行。

但是说实话，一般这种情况特别少见，哪有批量发送邮件的时候有些人只发一个附件呢？

搞定这个，再来看怎么在邮件中加入签名。

这里的签名是纯文字版本的，如果你的邮件签名是带图片的，代码要重新写，做法有点麻烦，就劳烦大家自己再去网上找吧。

同样打开VB编辑器，将你的签名写进去：

这里修改完之后，接着往下找到这一句，修改后是这样的：

以前是.body，这一句前面我加了一个单引号将其变成了注释，你直接删掉也没问题。

完成之后再次执行一下看看结果：

是不是就搞定了。

好吧，如果你有此困惑需要这个附件，就给我留言，再私发给你。

不喜勿喷，谢谢支持。