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

规则以今天的日期保存附件到文件

1 个答案: