按日期保存文件附件的Outlook脚本

时间:2017-08-16 15:40:04

标签: vba outlook-vba

我们每天都会收到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附件?

1 个答案:

答案 0 :(得分:0)

如果您使用Python import os并编写代码将文件保存为当前日期和时间,则可以通过导入datetime模块来获取