O outro post que você faz referência a links para PixelChelf que tem todos os elementos que você precisa salvar cada arquivo para suas respectivas pastas com um carimbo de data.
Todas as manhãs recebo um email com 3 arquivos:
"Daily MILH Checks e.xls"
"Daily Unit Linked .pdf"
"Daily Unit Linked.xls"
Isso é 2x .xls e um PDF. Os nomes dos arquivos nunca mudam.
O email vem de "[email protected]" com a linha de assunto fluente:
"IA083A - (Date: May 23, 2016)"
Eu criei uma regra que executa uma macro toda vez que um email é recebido de "[email protected]" com "IA083A" na linha de assunto.
Eu sei que o código postado aqui é um ponto de partida para o que eu preciso.
Public Sub SaveToDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat
dateFormat = Format(Now, "yyyy-mm-dd")
'Change this path to the your folder location
saveFolder = "c:\temp\"
objAtt.SaveAsFile saveFolder & "\" & dateFormat & ".xls"
Set objAtt = Nothing
End Sub
O texto acima não faz distinção entre arquivos diferentes. Cada um dos meus 3 arquivos precisa ser salvo em um local de pasta separado.
O nome acima renomeia o arquivo "aaaa-mm-dd" antes de salvar. Gostaria de preservar parte do nome do arquivo e adicionar a data no final. por exemplo. "Relatório de cheques 23-05-2016"
O outro post que você faz referência a links para PixelChelf que tem todos os elementos que você precisa salvar cada arquivo para suas respectivas pastas com um carimbo de data.
você pode escrever um arquivo bat para mover esses anexos do caminho salvo para o local de destino. E você pode chamar esse arquivo bat desse código acima.