这个问题之前给大家分享过,不过大家问的问题也比较多,主要是集中在:带多个附件的情况和签名的问题上。这次就看看怎么解决吧。
之前提供的模板是这样的:
这里特别强调一下的是,附件地址一定不要为空,否则点击按键不会有任何反应。
先来说多个附件吧,这里也分两种情况:
一种是要给所有人都发送两个附件,第二种是有些人发送两个,有些人只发送1个附件。
先说第一种情况,给所有人都发送两个附件。
既然是要发送多个附件(先假设两个附件,两个以上的情况依照下面的方法类推即可),那我们就增加一列再如同上面一样的附件地址:
完成之后,通过ALT+F11打开VB编辑窗口,找到下面的这段代码:
直接在这个后面增加一句,修改完成后如下:
然后找到下面这一句:
在这个后面也增加一句,修改完成后如下:
返回到Excel工作表中直接去点击发送邮件看效果:
是不是就成功实现了。
这个执行的前提同样要给大家强调一下的是:附件地址1和附件地址2缺一不可,任何一个附件地址是空着的,邮件就不会被执行哦。
所以情况二就来了,如果有的只发送一个,有的要发送两个,怎么办?继续改一下,我们先将Excel工作表中的内容填充一下,比如第二个人只发送一个附件,附件地址2空着先不填,稍后执行看效果:
再次进入到VB编辑器界面中:
这一句不用改动了,保持原样不变,看到这里:
在这个语句的后面增加一个条件语句,意思就是:当附件地址2有内容的时候,就把地址2中间的内容添加到邮件中。修改后的内容是这样的:
完成之后,回到Excel工作表点击发送邮件的按键执行一下看看结果:
成功执行。
但是说实话,一般这种情况特别少见,哪有批量发送邮件的时候有些人只发一个附件呢?
搞定这个,再来看怎么在邮件中加入签名。
这里的签名是纯文字版本的,如果你的邮件签名是带图片的,代码要重新写,做法有点麻烦,就劳烦大家自己再去网上找吧。
同样打开VB编辑器,将你的签名写进去:
这里修改完之后,接着往下找到这一句,修改后是这样的:
以前是.body,这一句前面我加了一个单引号将其变成了注释,你直接删掉也没问题。
完成之后再次执行一下看看结果:
是不是就搞定了。
好吧,如果你有此困惑需要这个附件,就给我留言,再私发给你。
不喜勿喷,谢谢支持。