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