展望重命名的附件，并保存到文件夹

Question

我有一个脚本，我发现目前保存附件，但我还用得着这些附件重命名为相同的名称。

对于一个小的背景我创建我的网站之一更新库存系统。要做到这一点，我从我们的用我所有的项目数和库存数ERP的报告（CSV）。

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

我需要的文件每次都具有相同的名称，因为剧本我都将保存CSV到一个文件夹，我有一个FTP程序，自动Tilt点数是CSV到我的Web服务器。

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

相信我，如果我的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"