聚热点 juredian

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

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

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

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

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

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

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

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

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

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

然后找到下面这一句:

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

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

是不是就成功实现了。

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

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

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

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

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

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

成功执行。

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

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

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

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

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

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

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

是不是就搞定了。

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

不喜勿喷,谢谢支持。

搜索建议:Office办公自动化  
热闻

 元宵节的作文200字

有关元宵节的作文200字集合5篇在学习、工作乃至生活中,大家都接触过作文吧,通过作文可以把我们那些零零散散的思想,聚集在一块。一篇什么样的作文才能称之为优秀作文...(展开)

热闻

 【歌词】我难过-5566 / 歌...

那一年默默无言 只能选择离开无邪的笑容已经 不再精采你害怕结局所以 拼命伤害说是我擋住你的 美好未来 你坚決 不希望我等待我便默默的让你走开如今你 受了伤回来叫...(展开)