巧用VBA提取Outlook邮件正文信息

背景：

对于一些使用outlook的公司或组织，使用outlook窗体进行规范邮件格式，而对于这些固定格式的邮件可以使用VBA进行提取邮件正文信息，汇总信息表。本例将演示如何操作。

需求：

演示邮件文本格式如下:

邮件正文内容

提取信息汇总表如下：

按需求提取邮件中主题、策划人、复核人、财务、费用总计、截止日期、注意事项、邮件发送时间的信息，汇总成统计表

汇总表

解决方案：

使用VBA，为方便用户操作，采用ActiveX  Command控件，源代码及注释如下，具体实现过程就不多解释了，看注释。

注意点：正则匹配只获取第一次匹配内容，防止邮件文本内出现转发导致内容提取重复，因为最新的回复内容总是显示的上面的位置。

Command1源码

Command2源码