批量保存所有邮件附件

  本文讲述如何使用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 & " 中的所有附件都已保存到 " & SaveToPathEnd Sub

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

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