把日期文件名後之後

Question

這是我到目前爲止有：

Public Sub saveAttachtoDisk6(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
saveFolder = "P:\me\" 
Dim dateFormat 
dateFormat = Format(Now, "yyyy.mm.dd") 
For Each objAtt In itm.Attachments 
     If InStr(1, objAtt.FileName, "ASDFA", vbTextCompare) > 0 Then 
     objAtt.SaveAsFile saveFolder & dateFormat & " ADFA ADF.pdf" 
     ElseIf InStr(1, itm.Subject, "ASDF ADSF ADSF", vbTextCompare) > 0 Then 
     objAtt.SaveAsFile saveFolder & dateFormat & " ASD ASDF ASD.pdf" 
     ElseIf InStr(1, objAtt.FileName, "ASDDAAD", vbTextCompare) > 0 Then 
     objAtt.SaveAsFile saveFolder & dateFormat & " ASDF ADF AD.pdf" 
     Else 
    End If 
    Set objAtt = Nothing 
Next 
End Sub 

隱私更改文件名，但我想把日期的文件名之後，但我需要的.PDF保存文件爲pdf。我收到的文件是電子郵件中的pdf，但出於某種原因，我只能通過在文件名末尾添加.pdf來實現此目的。有什麼辦法可以把它保存爲「ASDD ASDAS 2016.05.11.pdf」而不是「2016.05.11 ADSF ASDF.pdf」？

謝謝！

Answer 1

這應該工作： objAtt.SaveAsFile saveFolder & 「ASDF ADF AD」 & DATEFORMAT & 「.PDF」