|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
如题,这个工具的原型是我在之前一家公司上班的时候开发的。这家公司非常追求效率,每年都要有10%~20%的效率提升。每个部门都有巨大的压力,迫切希望将一些工作内容自动化。
我所在的部门负责整个公司的办公自动化技术支持,经常收到自动化需求,其中有一部分是与邮件相关,例如:
- 将一份大的Excel表格拆分成多份,分别发送给对应的负责人
- 填写一些格式固定的Word模板,转化为PDF文件,然后发送给对应人员
- 将工资表拆分成电子工资条,用身份证加密,然后发送给对应人员
- 发送一些格式固定报表通知邮件,邮件正文的文字基本固定,数字和截图要从Excel报表更新过来,然后发送给对应人员
由于这些需求具有相似性,最终都是以邮件的方式输入结果,因此开发了这个邮件发送小工具。有需要的同学拿去用即可,里面的注释应该够详细,稍微应该就能懂。
邮件工具.zip
(173.77 KB, 下载次数: 1276)
声明:本工具可以随意使用和分发,但作者不对工具产生的任何意外结果负责
只想用工具的同学,读到这里就可以了,以下是技术分享
-------------------------------------------分割线-------------------------------------------
前面三个需求的难度都不大,网络上也有很多实现的方式。最难的是最后一个,我被“如何将工作表里的内容当成邮件正文发送”这个问题困扰了很久。虽然Excel本身提供了一个“发送至邮件收件人”的功能,但这个功能无法录制宏,也没有找到对应的对象和方法(恳请大神赐教),搜遍全网也没有找到。
最后的解决思路是:
- 先将工作表保存成Html文件,然后读取Html编码
- 保存工作表里的图片,然后以隐藏的形式添加到邮件附件
- 修改编码,将编码中图片的地址替换为邮件附件
- 最后将编码赋值给htmlbody
不是科班出身,代码写得不是很好看,工程文件被我锁起来,需要源码的可以找我拿~
|
评分
-
8
查看全部评分
-
|