Ola, não sou programador, mas já usei um pouco de vba tentando imprimir alguns e-mails automaticamente fiz o seguinte script ===================================== Sub CustomMailMessageRule(Item As Outlook.MailItem) Item.PrintOut End Sub ===================================== Com ele e a regra: ===================================== Aplicar esta regra depois que a mensagem chegar com print-test no assunto e somente nesta máquina executar Projeto1.ThisOutlookSession.CustomMailMessageRule ===================================== Consegui imprimir no meu primeiro teste. Mas se fecho o Outlook e abro novamente já não funciona mais. Como testei em uma maquina virtual pude voltar a maquina para um estagio anterior, refazer tudo e confirmar que é isso mesmo o que acontece, escrevo o script, aplico a regra e funciona. Fecho o Outlook e não funciona mais. Alguém poderia me dizer como resolver isso? Obrigado