Question

我正在使用VBA代码将Outlook邮件中的任何附件下载到特定文件夹。

我在＆＃34;运行脚本＆＃34;中调用代码Outlook规则我已经定义了哪些邮件必须适用。

代码从新旧到时尚，为我提供最古老的附件，而不是最新的附件。这适用于每封邮件中具有相同名称的附件。

我应该在下面的代码中添加什么，以便它以旧的方式移动到新的排序，下载新的附件以覆盖具有相同名称的旧附件。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
saveFolder = "E:\Projects\Takeda\Data\Zipped Incremental data\incremental\"      
For Each objAtt In itm.Attachments          
    objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName          
    Set objAtt = Nothing      
Next 
End Sub

Answer 1

查看.order()附件集合，它有一个itm's属性，用于保存附件数。您可以获得计数，然后在您的for循环步骤中向后计数。在for循环中，只需使用索引引用附件对象即可引用附件对象中的各个附件项：

count

保存最新的邮件附件

1 个答案: