Question

我有一个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不熟悉，不足以轻松纠正，但我觉得这是对最后几行的改动。

收到的附件名为＆＃34; WORKBOOK_4X5OFXQG7.XLS＆＃34;，它是我们的Netweaver系统的广播报告。我想把它保存为＆＃34; HRIS_CS_Complaints.xls＆＃34;。

Answer 1

您必须更改行

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

在您的特定情况下：

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

请注意，这将以此文件名保存所有附件，因此我认为您至少应该为此文件名添加另一个变量后缀，如当前时间戳，附件索引等。

移动附件脚本

1 个答案: