覆盖以前保存的附件
问题描述:
我已经为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
答
一个方法是:首先构建目标文件名,检查文件是否存在,如果是删除文件,然后保存文件。
Dim FN as String
FN = SaveFolder & "\" & objAtt.DisplayName
if (Dir$(fn) <> "") then kill fn ' delete if file exists
objAtt.saveAsFile fn
谢谢你的工作! – 2014-09-03 12:42:39