从outlook自动下载附件

正在关注site。创建此代码到一个模件：从outlook自动下载附件

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

但是，当我设置它调用脚本每次邮件是在一个规则没有任何反应

来源

2016-11-29 InDubio

你做什么看起来是正确的..

你确定有附件附加到您的电子邮件？

如果是这样你有尝试调试，以确保这个子被调用？

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

还是它返回一个空集合的附件？

也可以简化您的每一个像这样 -

来源

2016-11-29 11:47:56 scriptss

是的，有附件。我该如何调试它，因为它在函数中有一个参数？ – InDubio

在调试中运行程序，并在每个上放置一个断点，将鼠标悬停在itm.Attachments上，查看该集合中是否有任何附件，如果没有附件，则会出现超过附件的问题可能是保存它们的问题 – scriptss

从outlook自动下载附件

回答

相关问题