【原】VBA:Outlook和Excel综合运用

很多企业公司使用微软OUTLOOK作为公司邮箱进行业务往来。 我们经常需要将一些表格数据也展示给收件人，但是又不需要将整个工作簿添加为附件，那么最好的方法就是复制指定单元格区域内容然后粘贴进新邮件界面内就可以了。 偶尔写一个邮件，这样做很简单。 如果每天都需要重复写邮件， 那么重复刚才的方法就有点浪费时间了。 不如写个格式邮件吧。  并自动将选中区域添加邮件中，岂不妙哉！ 节省时间，提高工作效率。 于是山丘今天上午就花了一个小时做了这么件事情。成功将以后每次需要花十几分钟的工作降低至 1 秒钟！  

现将关键源码分享给身在职场和即将步入职场的同学们，希望能对你们有帮助。 

---

第一步：

邮件界面中正文是网页标记语言， 如果将表格放进正文中需转换成HTML的标记语言才行。 如果邮件中的表格需要来点好看的样式如边框，背景色等等还需要引入CSS层叠式样式表的表达方式。  于是我写了个函数自定将选中单元格区域内容转换为HTML网页标记字符串。 源码如下： 

第二步：

起草格式邮件： 引入OutLook对象, 关键源码见下图：

第三步： 

表格中添加按钮， 并于快速邮件的程序挂钩即可。

运行后，结果见下图： 

完美的结果！

好了， 大伙可以借鉴上面代码，琢磨琢磨自己的应用吧， 比如一次性发个100个邮件， 根据表格内容自动发邮件等等等等......开动你们的脑洞吧！

最后山丘来个语重心长的鸡汤吧： 同志们，互联网时代了， 程序在改变我们的生活和工作模式， 机器在越来越多的方面正在取代我们， 编程未来将是我们的常规技能。 赶紧学点编程技术吧，免得以后被小孩子们超越显得不入流尴尬，我们无法像物联网，人工智能的神人们那样改变世界， 那么我们就先学个VBA程序语言来改变自己吧....