從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自動下載附件

回答

相關問題