Eu tenho um script que achei que atualmente salva anexos, mas também preciso renomeá-los para o mesmo nome.

Para um pouco de experiência, estou criando um sistema que atualiza o inventário em um dos meus sites. Para fazer isso, recebo um relatório (CSV) do nosso ERP com todos os meus números de itens e contagens de estoque.

Eles são enviados para mim, mas o CSV anexado sempre tem um nome que termina em um número diferente.

Eu preciso que o arquivo tenha o mesmo nome todas as vezes, porque o script que eu tenho salva esse CSV em uma pasta e eu tenho um programa de FTP que automaticamente transfere esses CSVs para o meu servidor da Web.

A partir daqui, tenho um script PHP em um trabalho cron que é executado no CSV e atualiza a quantidade em meus produtos.

Acredite, se meu ERP tivesse uma API, isso seria muito mais fácil, mas sem sorte.

De qualquer forma, meu problema está na nomeação do anexo. O script abaixo o salva, mas preciso que ele também retire os números do nome ou apenas nomeie '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

O anexo está sempre neste formato: CPNINVTRUM ###. Csv. O ### significa o número aleatório de 3 dígitos gerado pelo ERP.