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附件，有什么方法可以提取最新的Excel附件吗？

如果您使用Python导入操作系统并编写代码将文件保存为当前日期和时间，您可以通过导入datetime模块来获取该日期和时间。

如果您使用Python导入操作系统并编写代码将文件保存为当前日期和时间，您可以通过导入日期时间模块

将其与日期和时间一起保存将其与日期和时间一起保存