Outlook中按条件自动识别目标邮件并进行处理

myc8021

在outlook的Thisoutlooksession模块中写入了一个宏，希望实现以下功能。
1.在打开outlook后，自动启动一个名为Test的Excel表
2.当指定的群组邮箱123@163.com中有新邮件到达时自动判断该邮件是否为需要处理的目标对象。
3.如果满足条件，是处理的目标对象自动生成一个不重复的序列号，并将该邮件的相关信息记入到Test表中。
4.自动新建一个以序列号为名的文件夹，并把该邮件保存至文件夹中。
5.将目标邮件的标题变更为序列号+原标题，并保存。

现在基本上这个宏是可以正常运行的，最大的问题是有时候会在运行到第5步骤时变更完标题，要保存目标邮件时olmail.Save会出现错误，提示无法保存该邮件。更为奇怪的是我把代码写在Excel表里，对同一封邮件进行相同的操作时，却是可以正常改完名保存的。不同的意思放在outlook中的话是自动识别新邮件，放在Excel表里需要我手动启宏对收件箱进行检查处理。实在无法理解，为什么在outlook中有时候好用有时候不好用。请大神指点。

myc8021

添上我写的宏，如附件，请各位大神帮帮忙！！！

闻启学

亲，代码放在Excel 时候  无引用outlook 对象

myc8021

闻启学 发表于 2024-2-16 20:33
亲，代码放在Excel 时候  无引用outlook 对象

放在Excel的时候不是用的同样的代码，但是实现的功能都是一样，也用到了olmail.save