Vba 如何将日期添加到附件名称?
我的VBA代码将附件从电子邮件下载到本地驱动器。我想重命名附件以包含日期。日期应为收到电子邮件的前一天Vba 如何将日期添加到附件名称?,vba,outlook,attachment,Vba,Outlook,Attachment,我的VBA代码将附件从电子邮件下载到本地驱动器。我想重命名附件以包含日期。日期应为收到电子邮件的前一天 Public Sub SaveAutoAttach(item As Outlook.MailItem) Dim object_attachment As Outlook.Attachment Dim saveFolder As String ' Folder location when I want to save my file saveFolder = "\\gbhxxxx\Group
Public Sub SaveAutoAttach(item As Outlook.MailItem)
Dim object_attachment As Outlook.Attachment
Dim saveFolder As String
' Folder location when I want to save my file
saveFolder = "\\gbhxxxx\Groups\Shared\EBS\Post Go-Live\Auto MT940 download Test"
For Each object_attachment In item.Attachments
' Criteria to save .940 files only
If InStr(object_attachment.DisplayName, "UKAutoMT940") Then
object_attachment.SaveAsFile saveFolder & "\" & object_attachment.DisplayName
End If
Next
End Sub
更新了下面的代码,将日期附加到显示文件名之前。为此,我们使用DATEADD并向接收日期添加-1天,并将datetime值格式化为带有“-”s而不是“/”s的日期值 如果您希望在文件名之后但在扩展名之前添加它,我们需要解析为文件名
Public Sub SaveAutoAttach(item As Outlook.MailItem)
Dim object_attachment As Outlook.Attachment
Dim saveFolder As String
' Folder location when I want to save my file
saveFolder = "\\gbhxxxx\Groups\Shared\EBS\Post Go-Live\Auto MT940 download Test"
For Each object_attachment In item.Attachments
' Criteria to save .940 files only
If InStr(object_attachment.DisplayName, "UKAutoMT940") Then
object_attachment.SaveAsFile saveFolder & "\" & Format(DateAdd("d", -1, item.ReceivedTime), "dd-mm-yyyy") & "_" & object_attachment.DisplayName
End If
Next
End Sub