将日期放在文件名之后答案

【问题标题】：Putting date after after file name将日期放在文件名之后
【发布时间】：2016-09-07 11:09:35
【问题描述】：

这是我目前所拥有的：

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”？

谢谢！！！

【问题讨论】：

标签： vba date outlook

【解决方案1】：

这应该有效： objAtt.SaveAsFile saveFolder & "ASDF ADF AD" & dateFormat & ".pdf"

【讨论】：

".pdf"