2024年3月30日发(作者：)

Microsoft Outlook2010-2016邮箱附件自动保存在电脑

打开Microsoft Outlook客户端，Alt+F11，输入下列命令：

Public Sub SaveAttach(Item As em)

SaveAttachment Item, "D:"

MsgBox "已经把附件保存至D盘根目录"

End Sub

' 保存附件

' path为保存路径，condition为附件名匹配条件

Private Sub SaveAttachment(ByVal Item As

condition$ = "*")

Dim olAtt As Attachment

Dim i As Integer

If > 0 Then

For i = 1 To

Object, path$, Optional

Set olAtt = ments(i)

' save the attachment

If me Like condition Then

File path & me

End If

Next

End If

Set olAtt = Nothing

End Sub