ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 11522|回复: 36

[分享] 分享一个Excel邮件发送小工具

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2018-10-27 16:56 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
如题,这个工具的原型是我在之前一家公司上班的时候开发的。这家公司非常追求效率,每年都要有10%~20%的效率提升。每个部门都有巨大的压力,迫切希望将一些工作内容自动化。
我所在的部门负责整个公司的办公自动化技术支持,经常收到自动化需求,其中有一部分是与邮件相关,例如:


  • 将一份大的Excel表格拆分成多份,分别发送给对应的负责人
  • 填写一些格式固定的Word模板,转化为PDF文件,然后发送给对应人员
  • 将工资表拆分成电子工资条,用身份证加密,然后发送给对应人员
  • 发送一些格式固定报表通知邮件,邮件正文的文字基本固定,数字和截图要从Excel报表更新过来,然后发送给对应人员


由于这些需求具有相似性,最终都是以邮件的方式输入结果,因此开发了这个邮件发送小工具。有需要的同学拿去用即可,里面的注释应该够详细,稍微应该就能懂。

邮件工具.zip (173.77 KB, 下载次数: 1276)
声明:本工具可以随意使用和分发,但作者不对工具产生的任何意外结果负责

无标题.png



只想用工具的同学,读到这里就可以了,以下是技术分享

-------------------------------------------分割线-------------------------------------------
前面三个需求的难度都不大,网络上也有很多实现的方式。最难的是最后一个,我被“如何将工作表里的内容当成邮件正文发送”这个问题困扰了很久。虽然Excel本身提供了一个“发送至邮件收件人”的功能,但这个功能无法录制宏,也没有找到对应的对象和方法(恳请大神赐教),搜遍全网也没有找到。



最后的解决思路是:
  • 先将工作表保存成Html文件,然后读取Html编码
  • 保存工作表里的图片,然后以隐藏的形式添加到邮件附件
  • 修改编码,将编码中图片的地址替换为邮件附件
  • 最后将编码赋值给htmlbody


不是科班出身,代码写得不是很好看,工程文件被我锁起来,需要源码的可以找我拿~


评分

8

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-10-28 11:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
感谢分享  谢谢

TA的精华主题

TA的得分主题

发表于 2018-10-28 20:03 | 显示全部楼层
感觉捡到了一个宝贝,谢谢大神,解决大问题了!!!

TA的精华主题

TA的得分主题

发表于 2018-10-28 21:45 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-10-29 12:09 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-10-29 14:36 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-11-2 14:15 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-11-2 14:33 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-11-4 11:06 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-11-4 22:43 | 显示全部楼层
您好,楼主,看到您的帖子《[分享] 分享一个Excel邮件发送小工具 [复制链接]》,感到很赞,给您加了分。  

我想请教下,您方便把源代码发给我学习一下吗?谢谢啦。我的邮箱是xintianweng107@163.com,谢谢啦。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 21:27 , Processed in 0.053996 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表