Salvar anexo de email automaticamente na rede
Citação de Kindrazki em 22 de maio de 2012, 16:54No Microsoft Outlook é possivel fazer o mesmo salvar os anexos de um email automaticamente em um diretório da Rede. Para tanto é necessário criar uma Macro(alt+f11) com o seguinte conteudo:
Public Sub SalvarAnexo(Item As MailItem)
Dim Atmt As Attachment
Dim FileName As StringFor Each Atmt In Item.Attachments
If Right(Atmt.FileName, 3) = "xml" Then
FileName = "C:\temp\" & Atmt.FileName
Atmt.SaveAsFile FileName
End If
Next AtmtEnd Sub
Após esta macro criada, deve ser criada uma regra para que a cada mensagem recebida seja executado um script. Para isso em criar regras opte por uma nova regra, na primeira tela escolha aplicar regra em cada mensgem recebida e clique em avançar. Na tela seguinte clique novamente em avançar e confirme a mensagem para que a regra seja para todas as mensagens recebidas na próxima tela escolha a opção executar script e na pate inferior da tela seleciona o Scrip que deverá ser a macro criada anteriormente, após este passo clique em Concluir e esta pronto. A cada mensagem recebida o outlook salvará o arquivo no diretório configurado na macro.
No Microsoft Outlook é possivel fazer o mesmo salvar os anexos de um email automaticamente em um diretório da Rede. Para tanto é necessário criar uma Macro(alt+f11) com o seguinte conteudo:
Public Sub SalvarAnexo(Item As MailItem)
Dim Atmt As Attachment
Dim FileName As String
For Each Atmt In Item.Attachments
If Right(Atmt.FileName, 3) = "xml" Then
FileName = "C:\temp\" & Atmt.FileName
Atmt.SaveAsFile FileName
End If
Next Atmt
End Sub
Após esta macro criada, deve ser criada uma regra para que a cada mensagem recebida seja executado um script. Para isso em criar regras opte por uma nova regra, na primeira tela escolha aplicar regra em cada mensgem recebida e clique em avançar. Na tela seguinte clique novamente em avançar e confirme a mensagem para que a regra seja para todas as mensagens recebidas na próxima tela escolha a opção executar script e na pate inferior da tela seleciona o Scrip que deverá ser a macro criada anteriormente, após este passo clique em Concluir e esta pronto. A cada mensagem recebida o outlook salvará o arquivo no diretório configurado na macro.
