首页 > 黑方法 > outlook 使用 vba 自动下载邮件附件

outlook 使用 vba 自动下载邮件附件

2018年7月26日 发表评论 阅读评论

工作上经常会需要通过邮件定期接收其它人或公司发送的附件,然后再把附件导入下游系统继续处理。我们通过 Outlook 运行 VBA 脚本,可以实现自动下载邮件包含的附件到特定的路径。实现邮件附件下载的自动化。

1. 打开 Outlook 按 Alt + F11 组合键打开 Microsoft Visual Basic for Applications 窗口。

outlook ALT+F11输入脚本

2. 点击菜单 插入 > 模块,然后再打开的模块窗口中输入下面的 VBA 代码。

注意: 粘贴代码前需要把 sSaveFolder = "Z:\abc\" 中的路径换成你需要保存附件的路径。

3. 按 Ctrl + S 快捷键保存代码并关闭 Microsoft Visual Basic for Applications 窗口。

4. outlook页面,依次点击开始 > 规则 > 管理规则和通知:

5. 在规则和通知窗口,电子邮件规则tab页,点击新建规则,然后选择空白规则,对我接收的邮件应用规则:

6. 点击下一步,想要检测何种条件中取消所有选择框,点击下一步继续,然后再弹出的对话框中点确定(也可这里选择针对特定发件人,这里默认所有邮件)。

7. 在规则向导如何处理该邮件中选择: (1)运行脚本; (2) 点击脚本 ;(3)选择第二步增加的脚本并点击确认;点击下一步

注意:找不到运行脚本选项看文末解决办法。
8. 在规则向导是否有例外中保持默认,点击下一步。

9. 最后给规则命名,并检查规则内容,确认后点击完成。

10. 关闭规则和通知窗口个,发个邮件测试吧。

outlook 2016找不到运行脚本规则,脚本自动下载附件失败原因排查:
1、选项-信任中心-信任中心设置-电子邮件安全性,勾选下方的两个运行脚本的checkbox

2、选项-信任中心-信任中心设置-宏设置,需要选择启动所有宏,默认是第二项

3、新创建规则的时候没有选项“运行脚本”

4、添加注册表EnableUnsafeClientMailRules
开始->regedit

HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security

修改 EnableUnsafeClientMailRules值

如果没有,就手动创建一个

右边空白处,右键新建一个DWORD值,取名为EnableUnsafeClientMailRules,值设置为1

重启outlook

分类: 黑方法 标签:
  1. 2018年8月29日15:24 | #1

    outlook以前经常用,现在不怎么用了

  2. 2018年8月27日11:35 | #2

    很使用的,自动保存附件功能。

  1. 本文目前尚无任何 trackbacks 和 pingbacks.