Outlook 重命名附件并保存到文件夹

Question

我有一个脚本，我发现它当前保存了附件，但我还需要它来将这些附件重命名为相同的名称。

对于一些背景知识，我正在创建一个系统来更新我的一个网站上的库存。 为此，我从我们的 ERP 中获得了一份报告（CSV），其中包含我所有的项目编号和库存数量。

他们通过电子邮件发送给我，但附加的 CSV 总是有一个以不同数字结尾的名称。

我每次都需要该文件具有相同的名称，因为我拥有的脚本将该 CSV 保存到一个文件夹中，并且我有一个 FTP 程序可以自动将该 CSV FTP 传输到我的 Web 服务器。

从这里开始，我在 cron 作业上有一个 PHP 脚本，该脚本通过 CSV 运行并更新我的产品数量。

相信我，如果我的 ERP 有一个 API，这会容易得多，但没有运气。

无论如何，我的问题在于附件的命名。 下面的脚本保存它，但我需要它也从名称中去除数字或将其命名为“CPNINVTRUM”。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
     Dim objAtt As Outlook.Attachment
     Dim saveFolder As String
     saveFolder = "C:\PATH"
     For Each objAtt In itm.Attachments
     objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
     Set objAtt = Nothing
     Next
End Sub

附件始终采用以下格式：CPNINVTRUM###.csv。 ### 表示由 ERP 生成的 3 位随机数。

Answer 1

将保存行更改为

objAtt.SaveAsFile saveFolder & "\CPNINVTRUM.csv"