1

我正在尝试整理一些 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

如果有任何额外的帮助，我将不胜感激！

4

1 回答 1

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
于 2016-08-06T09:47:15.483 回答