自动保存Outlook邮件的附件(利用VBA)
5星 · 超过95%的资源 需积分: 35 11 浏览量
2016-03-28
15:52:08
上传
评论 4
收藏 49KB DOCX 举报 
自动保存 Outlook 邮件的附件
在工作中定期或不定期会收到一些数据文件，然后要将它们的附件保存到自己
的电脑上，下面演示如何让 Outlook 自动做这件事情。
首先，下面的 SaveAttach 函数可以保存附件中的 docx 文档到 D 盘根目录下。
用 ALT+F11 打开 VBA 编辑器（注意：是打开 Outlook 的 VBE 编辑窗口），
插入下述代码：
Public Sub SaveAttach(Item As Outlook.MailItem)
SaveAttachment Item, "D:\", "*.docx"
' MsgBox "附件已保存"
End Sub
' 保存附件
' path 为保存路径，condition 为附件名匹配条件
Private Sub SaveAttachment(ByVal Item As Object, path$,
Optional condition$ = "*")
Dim olAtt As Attachment
Dim i As Integer
If Item.Attachments.Count > 0 Then
For i = 1 To Item.Attachments.Count
Set olAtt = Item.Attachments(i)
' save the attachment
If olAtt.FileName Like condition Then
olAtt.SaveAsFile path & olAtt.FileName
End If
Next
End If
Set olAtt = Nothing
End Sub
资源评论
此人太帅2019-01-16只能导出.docx的Word文档，不能导出所有的。
lz8_0_2_32019-12-12路径怎么修改？path不能赋路径
irisfly892018-01-07没多大用处啊
我是简单生活2018-01-19多谢分享，非常有用。
