![将 Outlook 2013 中的附件保存并重命名到特定文件夹](https://linux22.com/image/1570807/%E5%B0%86%20Outlook%202013%20%E4%B8%AD%E7%9A%84%E9%99%84%E4%BB%B6%E4%BF%9D%E5%AD%98%E5%B9%B6%E9%87%8D%E5%91%BD%E5%90%8D%E5%88%B0%E7%89%B9%E5%AE%9A%E6%96%87%E4%BB%B6%E5%A4%B9.png)
我一直在使用本网站另一篇文章中的步骤,几天前它有效,现在却不行了。文件总是来自同一个人,并且总是 xlsm 附件。
我启用了不安全的客户端邮件规则在 Outlook 中启用运行脚本
然后我创建了一条规则,将特定人员的电子邮件移动到收件箱下的子文件夹中
然后运行以下脚本
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\Automation\CBM\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub
移动到子文件夹有效,但将附件保存到文件夹位置不再有效。
我检查了宏设置并且它们被设置为全部启用。
我不知道它为什么停止工作。它可以运行,但移动到子文件夹后什么也没有发生。
任何建议将不胜感激
答案1
正如我在你的截图和你使用的宏中看到的,该规则触发了保存附件宏,并且您的脚本被命名为保存附加到磁盘。也许您的规则只是触发了另一个不执行任何操作的脚本?