none
OUTLOOK 2016 script RRS feed

  • Pergunta

  • 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
    quarta-feira, 14 de outubro de 2015 19:39

Respostas

  • 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

    • Marcado como Resposta MiguelAmarante sexta-feira, 16 de outubro de 2015 22:21
    sexta-feira, 16 de outubro de 2015 12:55

Todas as Respostas

  • 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

    quarta-feira, 14 de outubro de 2015 20:36
  • 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

    quarta-feira, 14 de outubro de 2015 21:02
  • 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

    quarta-feira, 14 de outubro de 2015 21:26
    Moderador
  • 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


    quinta-feira, 15 de outubro de 2015 00:40
  • 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

    • Marcado como Resposta MiguelAmarante sexta-feira, 16 de outubro de 2015 22:21
    sexta-feira, 16 de outubro de 2015 12:55
  • 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

    sexta-feira, 16 de outubro de 2015 22:23
  • As ordens companheiro, volte sempre que precisar !!
    sábado, 17 de outubro de 2015 23:17
  • 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

    segunda-feira, 30 de janeiro de 2017 20:35
  • 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? 


    • Editado Tabako05 terça-feira, 3 de dezembro de 2019 17:57
    terça-feira, 3 de dezembro de 2019 17:56
  • 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?

    terça-feira, 3 de dezembro de 2019 18:00