首页 文章

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

提问于
浏览
1

我有一个脚本,我发现目前保存附件,但我还需要它将这些附件重命名为相同的名称 .

对于一些背景,我正在创建一个系统来更新我的一个网站上的库存 . 为此,我从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位随机数 .

1 回答

  • 2

    将保存行更改为

    objAtt.SaveAsFile saveFolder & "\CPNINVTRUM.csv"
    

相关问题