☰

将 Outlook 2013 中的附件保存并重命名到特定文件夹

tag-icon • tag-icon microsoft-outlook vba attachments
将 Outlook 2013 中的附件保存并重命名到特定文件夹

我一直在使用本网站另一篇文章中的步骤，几天前它有效，现在却不行了。文件总是来自同一个人，并且总是 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

正如我在你的截图和你使用的宏中看到的，该规则触发了保存附件宏，并且您的脚本被命名为保存附加到磁盘。也许您的规则只是触发了另一个不执行任何操作的脚本？

相关内容