自动保存带有特定主题标题的电子邮件附件

Question

希望有人可以为我阐明这一点。

我写了一个脚本，它应该保存一个带有特定标题的电子邮件附件（我在 Outlook 的规则部分中指定了这部分，还是应该将它写入脚本中？）

由于某种原因，它不起作用。下面是我的脚本：-

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