Contvirtua: Aprenda a Configurar Outlook para Salvar arquivos xml de NF-e

19 de jan. de 2013

Aprenda a Configurar Outlook para Salvar arquivos xml de NF-e

Salvando arquivos anexo automaticamente em pastas ou diretório, importante para guarda de arquivos xml NF-e e CT-e

http://www.ambienteoffice.com.br/outlook/salvar_anexos_de_novas_mensagens_numa_pasta/
http://social.technet.microsoft.com/Forums/pt/scriptadminpt/thread/95d59b4f-dc9c-4a6d-b6e1-f34160c983f6

Executar Macro ao Receber E-Mail
Este artigo mostra como o Outlook executa automaticamente um código em VBA quando uma mensagem de e-mail é recebida.
Em primeiro lugar, crie uma rotina no VBE do Outlook (Alt+F11). O código pode estar dentro da sessão do Outlook ou em um módulo separado, desde que não seja privado (ou seja, não pode ser precedido por Private):

O código do exemplo é:

Sub MensagemRecebida(Item As MailItem)
    MsgBox "Mensagem Recebida de " & Item.Sender & "!"
End Sub

Observe que esse procedimento recebe como parâmetro de entrada um objeto do tipo MailItem, ou seja, um e-mail.
No menu Página Inicial, vá em Regras e clique em Gerenciar Regras e Alertas...:

Uma janela aparecerá. Na aba E-mail Rules, clique em Nova Regra...:

Outra janela aparecerá. Selecione a opção Aplicar regra em mensagens que eu receber e em seguida clique em Avançar >:

Nessa tela, configure outras regras, se desejar. Como o objetivo desse artigo é criar uma regra que execute uma macro para todas as mensagens recebidas, não marquei nenhuma opção e cliquei em Avançar >:

O Outlook pede para confirmar em uma nova janela se você deseja aplicar mesmo a regra para todas as mensagens recebidas. Clique em Sim:

Na próxima etapa, habilite a opção executar um script e clique no hyperlink que aparece na caixa abaixo:

Uma nova janela aparecerá, perguntando qual script deve ser executado quando a regra for verdadeira. Para nosso caso, devemos escolher Projeto1.MensagemRecebida e clicar em OK: