OUTLOOK 2016 script

Question

desse script abaixo algo necessita ser alterado para rodar no OUTLOOK 2016 - pois estava funcionando do 2013 e parou de rodar.

Public Sub ProcessarAnexo(Email As MailItem)
     Dim DiretorioAnexos As String
     
     DiretorioAnexos = "C:\NFE"
     
     Dim MailID As String
     Dim Mail As Outlook.MailItem
     
     MailID = Email.EntryID
     Set Mail = Application.Session.GetItemFromID(MailID)
         
     For Each Anexo In Mail.Attachments
         If Right(Anexo.FileName, 3) = "xml" Then
             Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName
             
         End If
     Next
     
     Set Mail = Nothing
 End Sub

Answer 1

Miguel, boa tarde,

Em qual linha acontece o erro ?

Este script está rodando no Excel ou Access? Pois se for, é necessário marcar a referência do outlook, para tal você deve acessar o Editor do Visual Basic(ALT + F11), menu Ferramentas -> Referências e marcar a entrada Microsoft Outlook xx.x

Answer 2

Oi Andre,

Não dá linha de Erro. Não estou rodando no Excel nem no Acesse é no Outlook como uma regra de outlook rodar o script acima que desanexa o XML de email automaticamente para uma pasta.

Quando atualizei ontem do Office 2013 para o Office2016 deixou de funcionar essa regra (script) sem qualquer mensagem de erro.

alguma pista?

obrigado, Miguel

Answer 3

Miguel,

Você lembrou-se de criar a regra de e-mails para executar esse script ao chegar uma mensagem de e-mail para você?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

Felipe,

Sim, lembrei com os parâmetros:

Enviada somente para mim

 e atraves da conta miguel@xxx

 e com a palavra NF-e no assunto 

 e somente nesse computador

executar script (nome do script )

Não deu nenhuma mensagem de erro.

simplesmente parou de funcionar na atualização de versão.

Miguel

Answer 5

Cara,

Coloca um ponto de interrupção (F9) logo na primeira linha do seu código, ou insira uma msgbox.

Vamos ver se o regra está disparando o código pelo menos.

Se nem entrar no código saberemos que é um problema na regra

Answer 6

Andre

obrigado. Você acertou. o Codigo estava correto. Problema era na habilitação de macro.

todos os creditos de voltar a funcionar são seus. Obrigado pela ajuda.

abçs Miguel

Answer 7

As ordens companheiro, volte sempre que precisar !!

Answer 8

Andre boa noite

você poderia me informar como faço para habilitar a ação da regra de outlook: "executar um script"; pois alterei o notebook e agora essa opção não aparece no passo 2 de montagem de uma nova regra de Outlook.

obrigado, Miguel

Answer 9

Miguel,

o que você fez para "Habilitar a Macro"??
Eu estou com praticamente o mesmo problema que você, pois no meu caso, eu tinha um Script para salvar anexos de email em uma pasta que rodava no OUtlook 2016, e após algumas atualizações do windows/office, do nada parou de funcionar.

Só que agora ele nem entra no Código!
Mesmo colocando o ponto de parada na primeira linha, nada acontece.

Você consegue me ajudar? 

Answer 10

Olá André,

vc consegue me ajudar com essa habilitação da Macro? Estou com o mesmo problema que o André, porém  alem do meu script parar de funcionar do nada no meu Outlook 2016 após atualizações do Windows/Office, agora a minha regra nao esta nem entrando no código do Script.

Eu ja habilitei a opção de Scripts na criação das regras, mas quando o email chega, no Script nao é executado.

consegue me ajudar?