Pessoal, gostaria de uma ajuda. Criei este script copiando de um site indicado por vocês:
Public Sub SalvarAnexo(Item As MailItem)
Dim Atmt As Attachment
Dim FileName As String
For Each Atmt In Item.Attachments
If Right(Atmt.FileName, 4) = "xlsx" Then
FileName = "C:\temp\" & Format(Item.CreationTime, "yyyymmdd_hhnnss_") & Atmt.FileName
Atmt.SaveAsFile FileName
End If
Next Atmt
End Sub
Bom, no meu caso eu alterei "xlsx" para "xml" e no campo "c:\temp\" alterei para "t:\" que é minha unidade de rede onde serão copiados os arquivos.
Seguinte, crio a regra normalmente no outlook para quando chegar e-mail o script rodar e tudo mas não acontece nada.
Testei em uma dúzia de Outlook aqui (2007) e acontece o mesmo: nada.
Com não sou expert em Visual Basic, estou achando que deixei de fazer algum passo importante.
Fiz o seguinte: abri o MVB no outlook a partir do alt+11, botão direito em cima de Projeto 1 e Inserir Módulo, alterei conforme informei acima, cliquei em Arquivo-Salvar VbaProject.otm, depois em Fechar e voltar para o Microsoft Outlook, Regras
e Alertas, Nova regra, Verificar mensagem quando chegarem, regra aplicada a cada mensagem recebida, executar um script (Projeto1.SalvarAnexo), sem exceções, Concluir e OK.
Agradeço imensamente quem puder desvendar este mistério.
Há outra dúvida, quando as mensagens chegarem e o script rodar, automaticamente são copiadas ou é necessário intervenção do usuário, tipo abri a mensagem ou outra ação ?
Muito obrigado.
