关注site。将此代码创建为模块:
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
For Each objAtt In itm.Attachments
objAtt.SaveAsFile "C:\Data\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub
但是当我设置一个每次邮件进入时调用脚本的规则时都没有任何反应。
你做的看起来是正确的..
您确定您的电子邮件附有附件吗?
如果是这样,你试过调试以确保调用这个子?
如果它然后你检查它实际从电子邮件中取出附件?
还是它返回一个空的附件集合?
你也可以这样简化你的每一个 -
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
For Each objAtt As Outlook.Attachment In itm.Attachments
objAtt.SaveAsFile("C:\Data\" & objAtt.DisplayName)
Next
End Sub