1.需求描述

最近有个同事收到了50多封邮件，每个邮件基本带一个附件，问我有没有办法帮忙批量处理，我马上想到用VBA来进行批量处理，然后上网搜了一下解决办法，这里将实现步骤记录下来。

2.实现步骤

首先在D盘新建一个Attachment文件夹

然后打开Outlook的选项，进入信任中心，打开信任中心设置，点击宏设置后选中启用所有宏点确定保存（等会记得改回去）

在收件箱上右键新建文件夹，命名为：For Download

选中所有要导出附件的邮件后，右键点击移动选刚刚新建的For Download文件夹，完成后可以打开该文件夹看看邮件是否已经移过去

接着按Alt+F11调出VBA编辑器，双击ThisOutlookSession，然后在弹出窗口粘贴如下代码，然后点击运行按钮

Sub SaveTheAttachment()Dim olApp As New Outlook.ApplicationDim nmsName As Outlook.NameSpaceDim vItem As ObjectSet nmsName = olApp.GetNamespace("MAPI")Set myFolder = nmsName.GetDefaultFolder(olFolderInbox)Set fldFolder = myFolder.Folders("For Download")For Each vItem In fldFolder.Items'-----Save Attachment-------For Each att In vItem.Attachmentsatt.SaveAsFile "D:\Attachment\" & att.FileNameNext'------Save Attachment--------NextSet fldFolder = NothingSet nmsName = Nothing
End Sub

现在去刚刚创建的Attachment文件夹，可以发现附件已经下载下来了

最后记得删除代码，关闭窗口，将宏设置还原

3.升级：导出附件到以主题命名的文件夹

修改宏代码，获取每个邮件的主题，并创建该名称的文件夹，然后将附件保存到其中

Sub SaveTheAttachment()Dim olApp As New Outlook.ApplicationDim nmsName As Outlook.NameSpaceDim vItem As ObjectDim sbj As String           '-----邮件主题Dim path As String      '-----文件夹名称Set nmsName = olApp.GetNamespace("MAPI")Set myFolder = nmsName.GetDefaultFolder(olFolderInbox)Set fldFolder = myFolder.Folders("For Download")For Each vItem In fldFolder.Itemssbj = vItem.Subject     '-----获取邮件主题'Debug.Print sbj        '-----打印输出path = "D:\Attachment\" + sbjOn Error Resume Next    '如果已经有这个文件夹，则不创建VBA.MkDir (path)    '-----创建以主题命名的文件夹'-----Save Attachment-------For Each att In vItem.Attachmentsatt.SaveAsFile path & "\" & att.filenameNext'------Save Attachment--------NextSet fldFolder = NothingSet nmsName = Nothing
End Sub

去文件夹看，能发现已经实现了需求

最后记得删除代码，关闭窗口，将宏设置还原

Outlook 批量导出多个邮件的附件相关推荐

C#批量发送、抄送邮件、附件
** 以下代码发送效果在网易和腾讯邮箱显示不一样 C#批量发送.抄送.密送.回执.邮件.附件 ** 代码方法 using System; using System.Net.Mail; using Sy ...
outlook批量下载附件_在Outlook中批量打印PDF附件
outlook批量下载附件 This article was written by Sean Tsai, a data warehousing expert and good friend of th ...
html当作附件发送,邮件作为附件怎么发怎样把邮件作为附件来进行传送？
怎么把以前的邮件作为附件,放邮件里发出去? 将以前的邮件作为附件放邮件里发送方法: 首先必须将将附件的那条邮件存储为msg格式. 1.首先,单击要另存为文件的项目, 在"文件"菜单 ...
Office365跨订阅迁移邮箱-批量导出用户PST文件
之前我有文章提到怎么通过PST去实现跨林的Exchange数据迁移,那么我们在实际工作中会遇到客户使用Office365,由于某种原因公司要剥离或者要收购其他公司,涉及到要做Office365订阅迁移 ...
Outlook html 图片白色空白,outlook签名设置_解决Outlook中的签名和邮件图片都显示空白的办法_outlook邮件空白...
Outlook中的签名和邮件图片都显示空白 1.打开"文件". 2.点击"选项". 3.点击"邮件". 4.点击"编辑器选项&qu ...
【Python】批量导出word文档中的图片、嵌入式文件
Python 批量导出word文档中的图片.嵌入式文件需求学生试卷中的题目有要提交截图的,也有要提交文件的,为了方便学生考试,允许单独交或者嵌入Word中提交,那么事后如何整理学生的答案?单独提交 ...
企业级邮件超大附件解决方案详解
随着企业数字化转型的逐步深入,企业所产生的业务数据体量也越来越大,需要在企业内部或企业与合作伙伴之间进行的数据交换体量也越来越大.员工传统上习惯于通过邮件的方式发送文件,但当遇到要发送大体量业务数据的 ...
关闭outlook express系统提示压缩邮件导致邮件丢失
From:http://www.sixcolor.com.cn/knowledge-base/jie-jue-guan-bi-outlook-expressxi-tong-ti-shi-ya-suo- ...
【Python】将微信收藏的文章批量导出为pdf
[Python]将微信收藏的文章批量导出为pdf 第一步:导出微信收藏的链接第二步:将所有网址导出为pdf 写在前面微信收藏了大量的文章,一直没时间看.乘飞机或火车时有闲暇时间但网络不行.本文提供 ...

Outlook 批量导出多个邮件的附件

Outlook 批量导出多个邮件的附件

1.需求描述

2.实现步骤

3.升级：导出附件到以主题命名的文件夹

Outlook 批量导出多个邮件的附件相关推荐

最新文章

热门文章