admin管理员组

文章数量:1531374

2024年7月18日发(作者：)

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

本文标签： 附件自动保存

版权声明：本文标题：Microsoft Outlook附件自动下载到电脑 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1721280536a869529.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。