VBA应用—批量下载邮件附件

使用方法

outlook2019 + win10

启用宏

outlook > 文件 > 选项 > 自定义功能区 > 勾选 开发工具

outlook > 文件 > 选项 > 信任中心设置 > 宏设置 > 启用所有宏

宏编写

outlook > 开发工具 > Visual Basic > 双击 ThisOutlookSession

插入 > 过程

然后粘贴下文的代码段，F5运行或者Ctrl+S保存。注意，path必须要在你的电脑中存在，我默认设置的是E盘。path = “E:\宏下载”

邮件中点击下载

打开outlook > 开发工具 > 宏 > 批量下载附件（或者其它你自定的名称），这样就会将所选中的所有邮件的附件下载到path中了。

代码段如下：

Public Sub 批量下载附件()
Dim msg As MailItem
Dim exp As Explorer
Dim att As Attachment
Dim mailIndex As Integer
Dim path As String
Dim folder As String
Set exp = Application.ActiveExplorer
'保存附件到哪个路径，可以自己修改，末尾必须是斜杠
path = "E:\宏下载\"
mailIndex = 0
For Each msg In exp.Selection
If msg.Attachments.Count > 0 Then
mailIndex = mailIndex + 1
For Each att In msg.Attachments
'所有附件保存到path中，文件命名为：mailatt<编号>_附件原始文件名
att.SaveAsFile path + CStr(mailIndex) + "_" + att.FileName
Next
End If
Next
End Sub

版权声明：

本文为CSDN博主「游无方」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/weixin_40021197/article/details/109163091

欢迎留言探讨！