Outlook 2013腳本來保存附件，然後將電子郵件移動到文件夾

Question

我需要一個Outlook 2013的簡單腳本，用於客戶發送文檔的郵箱。 我打算設置一個適用於所有傳入郵件的規則。如果電子郵件有附件，則需要將其保存到文件夾中。然後，郵件，附件保存，需要被移動到一個完整的文件夾。

我認爲這非常簡單，但我對VBA或Outlook腳本知之甚少。我發現這個腳本，它刪除附件，並添加一個日期到保存的文件，這是完美的。 我只需要它，然後將完成的電子郵件移動到一個文件夾。希望有人能幫忙。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 
    Dim objAtt As Outlook.Attachment 
    Dim saveFolder As String 
    Dim dateFormat 
    dateFormat = Format(Now, "yyyy-mm-dd H-mm") 
    saveFolder = "\\myfilepath\" 
    For Each objAtt In itm.Attachments 
     objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName 
     Set objAtt = Nothing 
    Next 
End Sub 

Answer 1

MailItem類的Move方法可用於完成工作。