首页 文章

Outlook 2013脚本用于保存附件，然后将电子邮件移动到文件夹

提问于
浏览 次
0

我需要一个简单的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
vba outlook outlook-vba

1 回答

  • 0

    MailItem类的Move方法可用于完成工作 .

    回复于

相关问题