Outlook VBA 将多个附件保存为不同的名称

Question

这是我目前所拥有的：

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "P:\ME\TEST\"
Dim dateFormat
dateFormat = Format(Now, "yyyy.mm.dd")
 For Each objAtt In itm.Attachments
        If InStr(objAtt.FileName, "ASDFA ADSF.pdf", vbTextCompare) > 0 Then
      objAtt.SaveAsFile saveFolder & dateFormat & " ASDF ASDF.pdf"
        ElseIf InStr(objAtt.FileName, "GASD.pdf", vbTextCompare) > 0 Then
        objAtt.SaveAsFile saveFolder & dateFormat & " ASDF ADSF ADD.pdf"
        ElseIf InStr(objAtt.FileName, "ASDF AD.pdf", vbTextCompare) > 0 Then
        objAtt.SaveAsFile saveFolder & dateFormat & " ASDF ASDF.pdf"
        ElseIf InStr(objAtt.FileName, "ASDF AS.pdf", vbTextCompare) > 0 Then
        objAtt.SaveAsFile saveFolder & dateFormat & " asd asdf.pdf"
        Else
        objAtt.SaveAsFile saveFolder & "Caught"
  End If
  Set objAtt = Nothing
 Next
End Sub

我使用随机字母只是为了保护隐私。我正在尝试让 Outlook 使用规则和 VBA 将电子邮件附件自动保存为特定名称，并在前面加上日期。我在这里做错了什么？

Answer 1

我猜你没有写信给P:\ME\TEST\ 的权限，或者你没有进入你的If 语句来保存。

您想将If 行设置为> 0：

If InStr(objAtt.DisplayName, "BBB AAA.pdf") > 0 Then

如果任何字符位于该名称以外的第一个位置，则它不会进入If。当然，这也可能是你想要的行为。

您可以通过添加以下内容来测试它是否未命中 If 语句：

Else
    objAtt.SaveAsFile saveFolder & "not caught.pdf"
End If

如果添加Else 代码后没有保存，请尝试保存到本地文档文件夹。然后，如果你仍然没有得到任何保存，MailItem 没有任何附件。

编辑： 应该是这样的：