Сохранение вложений электронной почты автоматически с определенным типом темы

Question

Надеюсь, кто-то может пролить свет на это для меня.

Я написал скрипт, который должен сохранять вложения электронной почты с определенным заголовком (у меня есть эта часть, указанную в разделе правил перспективы, или оно должно быть написано в сценарии?)

почему-то не работает. Ниже приведен сценарий: -

Public Sub saveAttachmentTtoDisk(itm As Outlook.MailItem) 

Dim objAtt As Outlook.Attachment 

Dim saveFolder As String 
saveFolder = "C:/LocationOfFolderToSaveTo" 
For Each objAtt In itm.Attachments 
    objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName 
    Set objAtt = Nothing 
Next 
End Sub 

Может ли кто-нибудь увидеть, где я поступил не так.

Answer 1

saveFolder = "C:/LocationOfFolderToSaveTo"

Должно быть saveFolder = "C:\LocationOfFolderToSaveTo\"

---

Чтобы задать по теме - попробуйте добавить IF function, чтобы проверить, если указанное условие удовлетворяется или нет

If olItem.Subject = "Subject line here" Then 

---

Option Explicit 
Public Sub Save_Attachment(olItem As Outlook.MailItem) 
    Dim olAttch As Outlook.Attachment 
    Dim sPath As String 

    'sPath = Environ("USERPROFILE") & "\Documents\" 
    sPath = "C:\Temp\" 

    For Each olAttch In olItem.Attachments 
     If olItem.Subject = "0m3r" Then 
      olAttch.SaveAsFile sPath & "\" & olAttch.DisplayName 
     End If 
    Next 

    Set olAttch = Nothing 
End Sub