我们每天都会收到 Outlook 电子邮件,其中包含需要分析的 Excel 文件,命名始终包含**“ WPS”**。

我想每天运行一个脚本来保存附件,但是按附件发送的日期来组织附件。

我看到按日期组织附件的两种方法是:将 Excel 附件重命名为文件名开头的日期,或者将它们放入带日期的文件夹中。

我目前有一个 Outlook 规则,该规则可以捕获主题标题中带有**“ WPS”**的电子邮件,并包含附件。

然后运行以下脚本:

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\anon\Downloads\Attachments\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub

因此,从现在开始,我只有一个带有所有附件的文件夹。

我也担心重复,有时如果发件人对文件进行了最小的更改,我们会收到相同的文件。如果找到重复的附件,有什么办法可以拉最新的 Excel 附件?