Автоматическое сохранение вложений в Outlook 2010

Question

Моя цель - сохранить вложения с определенного адреса электронной почты в локальную папку. Я создал скрипт VB, но по какой-то причине он не работает.

Public Sub saveAttachtoDisk (itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
Dim dateFormat 
dateFormat = Format(Now, "dd-mm-yyyy H-mm") 
saveFolder = "c:\temp\" 
    For Each objAtt In itm.Attachments   
     objAtt.SaveAsFile saveFolder & "\" & dateFormate & objAtt.DisplayName   
     Set objAtt = Nothing  
    Next 
End Sub 

Я попытался создали новый модуль и новое правило, так что будет запускать скрипт, когда сообщение поступает из конкретного адреса. Я также попытался поместить скрипт в «ThisOutlookSession», но ничего не работает.

Answer 1

Вы пытались запустить скрипт вручную под отладчиком?

Попробуйте выбрать другой диск. Для диска C: требуется наличие прав администратора для записи.

Вы можете найти полезную статью Getting Started with VBA in Outlook 2010.