办公自动化-基于VBA的已发送邮件移动脚

type

status

date

slug

summary

⌨️功能介绍

由于平时工作存在大量必然存在且不需要关注的邮件，所以我就会将所有邮件进行分类梳理，方便查看，如下：

其中收件箱特别容易解决，直接在邮箱中添加规则即可，但是已发送邮件就无法执行添加规则了，所以本文就针对已发送邮件进行自动转移操作。

❗

收件箱规则中，新旧outlook版本规则存在差异；其中旧版本outlook规则只能在客户端生效；新版本outlook中配置才能在服务端中生效；

然后，新版本outlook中不支持VBA，旧版本邮箱才能应用本次脚本。

如下图，在outlook选项中配置启用宏；

当成功启用后在邮箱主页就可以看到开发工具中的VB按钮了；

🔑

配置功能模块

工程界面右击添加模块，在模块窗口配置相关功能程序即可

功能模块分享

已发送邮件主题含有“服务报告”，则移动至“客户服务报告”文件夹

已发送邮件主题含有“加班”，则移动至“加班”文件夹

已发送邮件正文含有“本任务有备件更换”，则移动至”备件核销“文件夹

已发送邮件正文含有“任务闭环通知”，则移动至”归档“文件夹

🔑

配置启动自执行

双击thisoutlooksession进入代码窗口；