none
Baixar XML automático Outlook 2007 - VBA RRS feed

  • Pergunta

  • Pessoal não entendo de programação, mas achei um script neste forum para baixar o arquivo xml do e-mail e salvar em uma determinada pasta, no entanto, o mesmo não está funcionando na minha máquina. Obs.: meu outlook é em inglês. segue abaixo o script:

                                            

    Public Sub ProcessarAnexo(Email As MailItem)
        Dim DiretorioAnexos As String

        DiretorioAnexos = "C:\XML"

        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
                MsgBox (Anexo.FileName)
                Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName

            End If
        Next

        Set Mail = Nothing
    End Sub

    Talvez tenha que mudar as linhas do script que estão em português, mas fiquei na dúvida. Alguém pode me ajudar?


    terça-feira, 4 de agosto de 2015 18:27

Respostas

  • Você tem que criar uma regra no seu Outlook para rodar essa macro quando chegar um e-mail.

    Tem que criar um diretório também no caminho c:\XML

    Chegou a fazer isso?


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

    sexta-feira, 7 de agosto de 2015 14:19
    Moderador

Todas as Respostas

  • Olá Rodrigo,

    Diga-nos qual a mensagem de erro e em qual linha ela ocorre !

    Essa função requer um parâmetro.. você está o passando ?


    terça-feira, 4 de agosto de 2015 20:16
  • Você tem que criar uma regra no seu Outlook para rodar essa macro quando chegar um e-mail.

    Tem que criar um diretório também no caminho c:\XML

    Chegou a fazer isso?


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

    sexta-feira, 7 de agosto de 2015 14:19
    Moderador