outlook批量下载附件

ringdove · 发表于 2010-4-19 13:30

有时候，很多邮件里面带有的附件需要存起来，但是一个个点击存取比较费时间，所以偶作了下面这样一个小macro。都是从这个论坛上学到的，然后自己做了小小的修改，发现真得很好用，和大家分享一下。

1)在“Inbox”里面创建一个文件夹，命名为 “For Download”  （这个可以更改，但下面代码标成蓝色的地方也要做相应更改）

2)在D盘创建一个文件夹，命名为“Email Attachment Temp”  （这个可以更改，但下面代码标成蓝色的地方也要做相应更改）

3)打开outlook，按住Ctrl+F11，粘贴如下代码：

Sub Savetheattachment()
Dim olApp As New Outlook.Application
Dim nmsName As Outlook.NameSpace
Dim vItem As Object
Set 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.Attachments
         att.SaveAsFile "D:\Email Attachment Temp\" & att.FileName
      Next
      '------Save Attachment--------
Next

Set fldFolder = Nothing
Set nmsName = Nothing
End Sub

4) 把需要批量下载附件的email拖到在Inbox里面建立的那个文件夹"For Download"中，运行macro，就能在D盘"Email Attachment Temp"里面下载所有邮件的附件

图图 · 发表于 2010-4-20 22:56

其实这个需求很大的，有没有高手验证过啊。

是否可以添加一个功能：存下来后，名字中显示出发件人的名字。

谢谢！

dsd999 · 发表于 2010-4-21 15:58

支持，可是这里的人气太低了

garin_zhu · 发表于 2010-5-4 13:07

楼主真能挖掘好用的东西啊。

weixueke · 发表于 2010-5-4 15:42

多谢楼主的代码，很好用。

zhangallen_3 · 发表于 2010-5-30 13:22

兄弟，你直接全选附件然后右键选择复制就行了啊？
另外2007能够直接全部另存为

zhangallen_3 · 发表于 2010-5-30 13:23

明白了你说的是批量存所有邮件的
嘿嘿

bufon · 发表于 2010-6-8 16:58

很实用，我收到，谢谢！！

mqlnaj111 · 发表于 2010-12-22 13:03

The macros in the project are disabled.Please refer to the online help or documentation of the host application to determine how to enable macros.
请问楼主,为什么我运行这个宏的时候,会出来这样一句话?

dsd999 · 发表于 2010-12-22 13:56

原帖由 mqlnaj111 于 2010-12-22 13:03 发表
The macros in the project are disabled.Please refer to the online help or documentation of the host application to determine how to enable macros.
请问楼主,为什么我运行这个宏的时候,会出来这样一句话?

你的安全性级别设置的高。
改成Medium（中）

		自动登录	找回密码
密码			免费注册

[分享] outlook批量下载附件

报错