下載具有相同名稱的附件而不覆蓋

Question

下面是從Outlook郵件中下載附件的腳本。

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) 
    Dim oAttachment As Outlook.Attachment 
    Dim sSaveFolder As String 
    Dim dateFormat 

    dateFormat = Format(Now, "yyyy-mm-dd") 
    sSaveFolder = "c:\My\temp\" 
    For Each oAttachment In MItem.Attachments 
     oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName 
    Next 
End Sub 

它僅在附件名稱不同時下載並存儲在我的代碼中提及的路徑中。

例如，我收到附件爲'List.csv'的郵件。我用同樣的名字收到了大約10次的郵件。

但是隻有一個文件（最近一個）被保存在路徑中。

---

最終代碼爲我工作。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 
    Dim objAtt As Outlook.Attachment 
    Dim saveFolder As String 
    Dim dt30daysAgo As Date 

    dt30daysAgo = DateAdd("d", -30, Now) 
    saveFolder = "c:\My\temp" 

    For Each objAtt In itm.Attachments 
     If itm.ReceivedTime > dt30daysAgo Then 
      If objAtt.FileName <> "list.csv" Then 
       objAtt.SaveAsFile saveFolder & "\" & objAtt.FileName 
      Else 
       objAtt.SaveAsFile saveFolder & "\" & itm.Subject & objAtt.FileName 
      End If 
     End If 
    Next 
End Sub 

Answer 1

您只是覆蓋具有相同名稱的任何現有文件。

一個非常簡單的解決方案是在保存之前將當前日期/時間追加到文件名。

要僅從過去30天內下載附件，請在過程的開始處添加一個檢查以比較郵件的ReceivedTime與30天前的日期，並在收到時間較短時退出該過程。

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) 
    Dim oAttachment As Outlook.Attachment 
    Dim sSaveFolder As String 
    Dim dt30daysAgo As Date 

    dt30daysAgo = DateAdd("d", 30, Now) 

    If MItem.ReceivedTime < dt30daysAgo Then Exit Sub 

    sSaveFolder = "c:\My\temp\" 
    For Each oAttachment In MItem.Attachments 
     oAttachment.SaveAsFile sSaveFolder & Format(Now, "YYYY-MM-DD_hh-nn-ss") & oAttachment.DisplayName 
    Next 
End Sub 

但在ReceivedTime檢查是沒有得到很好的放置，你最好應該做這個的調用過程。