Перспектива VBA 2013: Automating Сохранение вложений

Question

я использую следующий код, чтобы сохранить фото электронной почты, чтобы в определенную папку:

Private Sub saveAttachtoDisk(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
saveFolder = "C:\Temp\" 

For Each objAtt In itm.Attachments 
If objAtt.FileName <> "image001.gif" Then 
    objAtt.SaveAsFile saveFolder & "\" & itm.Subject & ".JPG" 
End If 

Set objAtt = Nothing 
Next 
End Sub 

Однако я не могу получить его на самом деле работает. Я попытался сохранить его в ThisOutlookSession и как модуль, прикрепленный к правилу, но ничего не сохраняется.

Я также хочу создать другой скрипт, чтобы сохранить комментарии по электронной почте к текстовому файлу, где конкретный текст будет записан в тегах [COMMENT] в теле. Это возможно ?

Answer 1

Это код, который я должен работать:

Sub saveAttachtoDisk(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 

Dim dateFormat 
dateFormat = Format(Now, "yyyy-mm-dd") 

'Message subject should be the meter serial number i.e.K11TB00864 
Dim subject 
subject = Trim(itm.subject) 

Dim saveFolder As String 
saveFolder = "C:\Temp\Photo" 

For Each objAtt In itm.Attachments 
If objAtt.FileName <> "image001.gif" Then 
objAtt.SaveAsFile saveFolder & "\" & itm.subject & " " & dateFormat & ".jpg" 
End If 

Set objAtt = Nothing 
Next 
End Sub 

Answer 2

В пути есть дополнительное «\».

Попробуйте objAtt.SaveAsFile saveFolder & itm.Subject & ".JPG"

или saveFolder = "C: \ Temp"