使用今天的日期将附件保存到文件的规则

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