Перспективы 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 statments, добавив:

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

Если вы не получите сохранить после добавления Else кода, попытайтесь сохранить в папку локальных документов. Тогда, если вы все равно не получите никаких сейвов, у MailItem нет вложений.

EDIT: Должно выглядеть так: