Salvar automaticamente anexos de correspondência de correspondência com uma regra específica

Question

Toda manhã recebo um e-mail de uma pessoa e ela contém um anexo de planilha. Eu consegui criar uma regra de perspectiva que captura esses e-mails. Agora, é possível ter o anexo de cada um deles salvo automaticamente em uma pasta local, com o nome do arquivo YYYY-MM-DD.xls?

O anexo no email tem um nome de arquivo gerado aleatoriamente, portanto, ele precisa levar a data de quando o email é enviado para escolher um nome de arquivo. Nota: isto está no meu laptop, então há uma chance de que o e-mail seja enviado em um dia diferente do dia em que é recebido por mim (como quando ele está desligado por um dia), então usar "data de hoje" é não é uma opção viável.

EDITAR: usando o Windows 7 com o Outlook 2013

    

Answer 1

Para fazer o que você quer, você precisará misturar um pouco de VBA e Regras juntos. Não tenho certeza sobre qual versão do Outlook você está usando, portanto não há garantias aqui. Isso foi testado no Outlook 2010.

Este artigo ajudará você a configurar as coisas - Regra para salvar automaticamente o anexo no Outlook .

O código abaixo é modificado especificamente para salvar o arquivo com o formato de nome de yyyy-mm-dd .

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

Depois de configurar essa regra para executar esse script, ele salvará qualquer anexo dessa pessoa toda vez que receber um (e concederá a ele uma extensão .xls ). Se você quiser mudar isso, você terá que modificar sua regra ou desativá-la.