Автоматическая загрузка вложений с прогноза

Question

site. Создан этот код в Modul:.

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