☰

自动保存符合特定规则的邮件附件

tag-icon • tag-icon email microsoft-outlook email-filter
自动保存符合特定规则的邮件附件

每天早上我都会收到某人发来的电子邮件，其中包含电子表格附件。我已成功创建了一条 Outlook 规则来捕获这些电子邮件。现在，是否可以将每个附件自动保存到本地文件夹中，文件名为 YYYY-MM-DD.xls？

邮件中的附件有一个随机生成的文件名，因此需要根据邮件发送的日期来选择文件名。注意：这是在我的笔记本电脑上，因此有可能电子邮件是在我收到的那天以外的其他日期发送的（例如，当它关闭一天时），所以使用“今天的日期”不是一个可行的选择。

编辑： 使用 Windows 7 和 Outlook 2013

答案1

要实现您想要的功能，您需要将一些 VBA 和规则混合在一起。不确定您使用的是哪个版本的 Outlook，因此这里无法保证。这是在 Outlook 2010 上测试的。

本文将帮助您完成设置 -Outlook 中自动保存附件的规则。

下面的代码是针对您以 的名称格式保存文件而修改的yyyy-mm-dd。

Public Sub SaveToDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat

dateFormat = Format(Now, "yyyy-mm-dd")

'Change this path to the your folder location
saveFolder = "c:\temp\"

objAtt.SaveAsFile saveFolder & "\" & dateFormat & ".xls"

Set objAtt = Nothing

End Sub

一旦您设置了此规则来运行此脚本，它将在每次收到此人发送的附件时保存该附件（并为其添加.xls扩展名）。如果您希望更改此设置，则必须修改规则或将其关闭。

相关内容