IT技术学习网
IT技术学习网
您的位置: 主页 > 软件使用 >

批量保存所有邮件附件_outlook自定义宏

2014-12-09 20:14 来源: IT技术学习网原创 阅读:

本文讲述如何使用outlook自定义宏实现一键批量保存所有邮件附件

有时候我们需要同时保存多封邮件的附件,但各种客户端默认只支持一封一封的保存,用下面这个方法可以实现批量保存邮件附件功能

打开Outlook,执行"工具->宏->Visual Basic 编辑器"。在工程视图中双击"Project1->Microsoft Office Outlook->ThisOutlookSession",然后执行"插入->过程",插入一个名为 SaveAttachments 的公共子程序,代码如下(其中蓝色部分是要保存附件的位置):

Public Sub SaveAttachments()
    Dim SaveToPath As String
    SaveToPath = "C:\temp\"
    Set myfolder = Application.ActiveExplorer.CurrentFolder
    For Each myitem In myfolder.Items
        For Each myattachment In myitem.Attachments
            myattachment.SaveAsFile SaveToPath & myattachment.FileName
        Next
    Next
    MsgBox myfolder.FolderPath & " 中的所有附件都已保存到 " & SaveToPath
End Sub

保存宏然后关闭VB编辑界面,回到Outlook。选中一个收件文件夹,执行"工具->宏->宏...",选择刚才保存的 ThisOutlookSession.SaveAttachments,点击"运行",就把当前文件夹中所有附件保存到C:\temp\下了。不过需要注意的是,如果有两个附件名字相同,那么后面保存的附件会把前面的覆盖。
也可以将这个宏添加为一个工具栏上的按钮,用起来更方便一些。

批量保存所有邮件附件_outlook自定义宏
转载需注明出处:IT技术学习网 http://www.itjsxx.com/software/save_all_email_attachment.html

评论文章 批量保存所有邮件附件_outlook自定义宏
评论列表(网友评论仅供网友表达个人看法,并不表明本站同意其观点或证实其描述)
IT技术学习网 - 关于我们 - 联系我们 - 版权声明 - 网站地图