今日の日付のファイルに添付ファイルを保存するルール

Question

私はネットワーク上のフォルダに毎日送信される添付ファイルを保存するいくつかのVBAをまとめようとしていますが、添付ファイルが保存されている限りただし、正しい場所には、文書の保存場所の前にプレフィックスを付ける必要があります。

添付ファイルはsummary.rtfであり、私はそれが20160805_summary.rtfなど

私のVBAは、（私はSQLの女の子だ）、本質的にそのいずれかの簡単なアドバイスはとてもいただければ幸い何もないようにしたいと思います私はこれを数日間見直してきたので、どこにも助けを見つけることができません！

私の現在のコードは次のようになります。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
saveFolder = "X:\Tessitura\Shared Full Access\Secure_CXL_Reports" 
    For Each objAtt In itm.Attachments 
      objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName 
      Set objAtt = Nothing 
    Next 
End Sub 

私は余分な助けのためにとても感謝されます！

Answer 1

次のセクションを行に追加する必要があります。フォーマットは日付の形式を必要なものに変更し、日付は現在の日付を返します。必要に応じてy/d/mを変更します。

format(date, "yyyymmdd") 

これはコードに挿入された行です。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
saveFolder = "X:\Tessitura\Shared Full Access\Secure_CXL_Reports" 
    For Each objAtt In itm.Attachments 
      objAtt.SaveAsFile saveFolder & "\" & format(date, "yyyymmdd") & "_" & objAtt.DisplayName 
      Set objAtt = Nothing 
    Next 
End Sub