自动从Outlook下载附件

Question

下一个站点。将此代码创建为模块：

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

，但是当我设置一个规则时，每次邮件都会拨打脚本时，什么都不会发生。

Answer 1

您的工作看起来正确..

您确定您的电子邮件中有附件吗？

，如果是这样，您是否尝试过调试以确保称呼此潜艇？

如果是，您是否检查过它实际上从电子邮件中获取附件？

还是它返回空的附件集？

您也可以简化每个人的简化 -

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