VBA实现OUTLOOK批量保存附件

到底什么情况才会批量收到一堆带附件的邮件还需要保存

日常工作中有许多情况是需要批量邮件收集资料的,批量发送是邮件客户端的基本功能,但批量保存多个邮件的附件很多客户端并不支持。 这就导致有的时候我们需要一个一个保存很多邮件的附件,甚为不便。 其实使用VBA来调用OUTLOOK的对象只需要很少的代码就可以实现批量保存多封邮件的附件,代码如下

代码

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub SaveAttachments()
Dim SaveToPath As String
Dim myitem As Outlook.MailItem
SaveToPath = InputBox("保存文件地址,最后需带\", "C:\Users\Public\Documents\")
Set myfolder = Application.ActiveExplorer.Selection
For Each myitem In myfolder
For Each myattachment In myitem.Attachments
myattachment.SaveAsFile SaveToPath & myattachment.FileName
Next
Next
MsgBox " 所有附件都已保存到 "  SaveToPath
End Sub

使用方法及注意事项、

  • 代码块里有个默认的地址可以根据情况填写
  • 提前复制好要保存到的文件地址,最后记得加\
  • 从OUTLOOK里选中要保存附件的邮件,Ctrl或Shift多选都可以,搜索后全选也可以
  • 按Alt+F9调出宏界面点插入-模块,黏贴代码,点击F5运行
  • 待收集的文件不能有重名的,建议制作模板或填表说明时要求修改唯一的文件名
  • 代码会下载邮件内的所有附件,包括签名图片等,需要手动在保存文件夹下删除不需要的文件

本文遵守署名-非营利性使用-相同方式共享协议,转载请保留本段:冰丝带雨 » VBA实现OUTLOOK批量保存附件

赞 (0)