覆盖以前保存的附件

Question

我已经为Outlook保存附件VBA代码。如果我收到具有相同名称的附件，它不会处理。如何覆盖并保存最新的？

Sub ExportAttach(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
saveFolder = "C:\Users\Redirection\johndoe\Desktop\TestFolder" 
For Each objAtt In itm.Attachments 
    objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName 
    Set objAtt = Nothing 
Next 
End Sub 

Answer 1

一个方法是：首先构建目标文件名，检查文件是否存在，如果是删除文件，然后保存文件。

Dim FN as String 
FN = SaveFolder & "\" & objAtt.DisplayName 

if (Dir$(fn) <> "") then kill fn ' delete if file exists 

objAtt.saveAsFile fn