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方法可用于完成工作。