移动附件脚本

我有一个VBA脚本，我用它来将附件从电子邮件移动到一个文件夹供SSIS包使用。 但是，我想要做的事情是改变脚本，以便重命名附件，因为它会将其保存到文件夹中。

这是当前的脚本。

Public Sub saveAttachmenttoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String saveFolder = "\\vswi-sql\DATABASES\DATAWAREHOUSE\UNIVERSAL_DW\CS\CS_IMPORTS" For Each objAtt In itm.Attachments objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName Set objAtt = Nothing Next End Sub 

我对VBA不够熟悉，不太容易做出修正，但是我感觉这是对最后几行的改动。

收到的附件名为“WORKBOOK_4X5OFXQG7.XLS”，它是来自我们的Netweaver系统的广播报告。 我想把它保存为“HRIS_CS_Complaints.xls”。

Answer 1

你必须改变线路

 objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName 

在你的具体情况下：

 objAtt.SaveAsFile saveFolder & "\" & "HRIS_CS_Complaints.xls" 

请注意，这会将所有附件保存在这个文件名下，所以我认为你至less应该在当前时间戳，附件索引等文件名中添加另一个variables后缀。