收集新邮件内容里面的字段

wgx711

我们有个查询岗，所有同事针对某产品的查询都会发邮件问他。查询岗会从邮件内容里面提取字段，整理成表格。但是由于同事们的邮件并不规范，可以说是乱七八糟，如果有个宏，能自动收集邮件内容里面的关键字，就好了。
宏的目的：通过对邮件加一个按钮，能读取该邮件相关内容到指定excel中
如上图，这是某同事发来的邮件的截图。
目的：读取该邮件的产品ID、日期、查询内容，放入d:\数据查询.xlsx的表1的a:c列（需要从表的末端开始放，一般采用range("a"&[a1].end(xldown).row)=...）
难点：
首先，这个邮件的主题是不定的（不是所有邮件都是来查询的，就算是查询邮件，有的主题可能叫“查询”，也有可能叫“呵呵”，所以建议在邮件窗体中加个按钮，由收件人手工判断这个邮件内容收不收集）
其次，邮件正文部分，可能有一堆废话，但实际上，我只需要3个字段，所以可能需要用到正则表达式
另外，字段名，不一定都是标准的,如“产品ID”，有可能叫“ID”，或者叫“产品名称”，不过这个相对比较规范，您就假设要么叫“产品ID”，或者“ID”，或者“产品名称”好了。
先谢谢高手。很少有人在outlook问vba问题。本来我也以为做不到的，但是看了版主的几个帖子后，觉得这还是有可能的。

likeslh

目前只做到了新邮件来的时候，创建新邮件的对象，同时可以获取其内容。
但是内容不统一的话，那就不知道该怎么判断了。

wgx711

likeslh 发表于 2014-5-7 16:43
目前只做到了新邮件来的时候，创建新邮件的对象，同时可以获取其内容。
但是内容不统一的话，那就不知道该 ...

我觉得需要获取邮件正文，将其写入一个变量，然后通过正则表达式，获取关键字，比如：获取“产品ID：”及之后的一个逗号或者句号之间的内容，认为这是一个ID
然后将这个ID写入另一变量，用代码打开excel，将该变量写到excel中去
个人想象，期待高手

likeslh

如果确实有产品ID之类的标识符的话，可以如下操作：
获取到 MailItem.Body 之后，可以用Instr(MailItem.Body,"产品ID") 得到“产品ID”出现的位置，
再用 Mid 函数获取“产品ID”之后的内容就可以了。

闻启学

主题 不 统一的话 可以用发件人比较


如果确实有产品ID之类的标识符的话，可以如下操作：
获取到 MailItem.Body 之后，可以用Instr(MailItem.Body,"产品ID") 得到“产品ID”出现的位置，
再用 Mid 函数获取“产品ID”之后的内容就可以了。

但是要有关键字 否则 都是不行

wgx711

闻启学 发表于 2014-5-8 09:37
主题 不 统一的话 可以用发件人比较

发件人也不固定，因为谁都可以来问，但是并不是每个邮件都是来查询的。所以需要做个按钮，由人工判断这个邮件要不要收集。

闻启学

wgx711 发表于 2014-5-8 09:42
发件人也不固定，因为谁都可以来问，但是并不是每个邮件都是来查询的。所以需要做个按钮，由人工判断这个 ...

还有一个方法 根据关键字判断是否收集

这样的 邮件内容必须有关键字  产品ID
之类 的

wgx711

闻启学 发表于 2014-5-8 10:13
还有一个方法 根据关键字判断是否收集

这样的 邮件内容必须有关键字  产品ID

你能帮忙写个看看吗？

闻启学

wgx711 发表于 2014-5-8 13:58
你能帮忙写个看看吗？

能否 给我看看完整的邮件信息

闻启学

wgx711 发表于 2014-5-8 13:58
你能帮忙写个看看吗？

能否 给我看看完整的邮件内容