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