这个问题之前给你们分享过,不过你们问的问题也比较多,主要是集中在:带多个附件的情况和签名的问题上。这次就瞧瞧如何解决吧。
之前提供的模板是这样的:
这里非常指出一下的是,附件地址一定不要为空,否则点击按钮不会有任何反应。
先来说多个附件吧,这里也分两种情况:
一种是要给所有人都发送两个附件,第二种是有些人发送两个,有些人只发送1个附件。
先说第一种情况,给所有人都发送两个附件。
既然是要发送多个附件(先假定两个附件,两个以上的情况根据下边的方式类推即可),那我们就降低一列再就像前面一样的附件地址:
完成以后,通过ALT+F11打开VB编辑窗口,找到下边的这段代码:
直接在这个前面降低一句,修改完成后如下:
然后找到下边这一句:
在这个前面也降低一句,修改完成后如下:
返回到Excel工作表中直接去点击“发送短信”看疗效:
是不是就成功实现了。
这个执行的前提同样要给你们指出一下的是:附件地址1和附件地址2缺一不可,任何一个附件地址是空着的,邮件就不会被执行哦。
所以情况二就来了,如果有的只发送一个,有的要发送两个,怎么办?继续改一下,我们先将Excel工作表中的内容填充一下,比如第二个人只发送一个附件,附件地址2空着先不填,稍后执行看疗效:
再次步入到VB编辑器界面中:
这一句不用改动了,保持原貌不变,看到这儿:
在这个句子的前面降低一个条件句子,意思就是:当附件地址2有内容的时侯,就把地址2中间的内容添加到电邮中。修改后的内容是这样的:
完成以后,回到Excel工作表点击发送短信的键盘执行一下瞧瞧结果:
成功执行。
但是说实话,一般这些情况非常稀少,哪有批量发送短信的时侯有些人只发一个附件呢?
搞定这个,再来看如何在电邮中加入签名。
这里的后面是纯文字版本的,如果你的电邮签名是带图片的,代码要重新写,做法有点麻烦,就恳请你们自己再去网上找吧。
同样打开VB编辑器,将你的签名写进去:
这里更改完以后,接着往下找到这一句,修改后是这样的:
以前是.body,这一句后面我加了一个单冒号将其弄成了注释,你直接删除也没问题。
完成以后再度执行一下瞧瞧结果:
是不是就搞定了。
好吧,以下是附件地址假如你须要可以直接下载自己根据前面讲的方式改动就好了。
提取码:ydeb
有问题再交流吧,不喜欢勿喷,谢谢。