VBA操作OutLook
最近帮朋友做了类似功能,利用VBA操作OutLook批量发送工资条,极大节省了人力。正好来总结一下,希望为大家所用。(本篇文章默认读者电脑已经可以进行手动发送邮件,不讲解OutLook如何配置邮箱,设置发件人等信息)
先扔框架模板:VBA操作OutLook有一套固定的代码模板,可根据具体需求修改即可。
发送邮件完整模板
几点注意事项:
①Display作用是把上述所有操作完成后,刷新显示OutLook软件界面,可以理解为预览。可省略。
②.BodyFormat = olFormatHTML这块注意,因为是Excel操作OutLook,所以不能直接写属性名称,而要替换成数字代号,否则会出错。正确写法:.BodyFormat = 2
这个2怎么得到的?去OutLook软件里面,Msgbox olFormatHTML。Word VBA也讲过类似注意点。
③BodyFormat=2和HTMLBody是同时出现的。
将表格内容转换为html格式的自定义函数
!!!需要注意的是:Excel默认情况下,网格线不会被识别。只有人为设置了边框线后,用该函数转化过,才会显示边框线。
直接上实战例子:案例里面邮箱均是作者小号,欢迎骚扰。
以附件形式发送工资条
把每个人的工资条导出为图片,添加为附件发送。
模板页纯粹是为了粘贴数据导出图片,没有特殊含义
QQ邮箱发送效果
以HTML形式发送工资条
QQ邮箱发送效果
这两种批量发送邮件的方法基本能满足九成以上人的需求,再复杂的,不再深入研究。
看都看到最后了,如果觉得不错,希望大家分享一下,或者点一下右下角的"在看"按钮。