Outlook将收到邮件的附件保存在磁盘

最新推荐文章于 2023-07-26 15:18:19 发布

weixin_34097242

最新推荐文章于 2023-07-26 15:18:19 发布

阅读量471

点赞数

文章标签：开发工具

原文链接：http://www.cnblogs.com/szhx/p/4298758.html

版权

本文介绍如何通过设置宏来实现在Outlook中自动保存邮件附件的功能。首先需要启用开发工具并创建宏，接着编写用于保存附件的VBA代码。之后设置宏的安全性和规则，使得当收到特定主题的邮件时自动执行保存附件的脚本。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1. 新建一个宏

1）文件->选项->自定义功能区，把主选项卡的开发工具勾选上。

2）开发工具->宏，输入宏名，创建。

加入以下代码

Public Sub SaveAttach(Item As Outlook.MailItem)
SaveAttachment Item, "D:\", "*.docx"
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