Question

我找到了一个VBA脚本，可以通过选择目标子文件夹来从电子邮件中复制附件，但是复制到硬盘上的文件只是具有相同名称的文件的1个副本，我发现此脚本中提到要更改文件名到接收日期，但我无法构建完整的脚本。请注意，我是VBA脚本的谦虚拾荒者，我不太了解它们，我只打算在您的支持下自动执行工作流程。

https://www.pixelchef.net/content/rule-autosave-attachment-outlook

所以我需要下载两个附件，但将它们的名称更改为“ XYZ-01-12-2019”和“ XYZ-05-12-2019”。

Sub Save_Attachments()

  Dim ns As NameSpace
  Dim Inbox As MAPIFolder
  Dim SubFolder As MAPIFolder
  Dim item As Object
  Dim Atmt As Attachment
  Dim fileName As String

  Set ns = GetNamespace("MAPI")
  Set Inbox = ns.GetDefaultFolder(olFolderInbox)
  Set SubFolder = Application.Session.PickFolder ' Enter correct subfolder name.

  On Error Resume Next

  For Each item In SubFolder.Items
  For Each Atmt In item.Attachments

  fileName = "D:\Attachements\" & Atmt.fileName
  Atmt.SaveAsFile fileName

   Next Atmt
  Next item

 Call MsgBox("Download Complete")

End Sub

Outlook附件下载VBA

0 个答案: