none
copiar dados XML anexo outlook RRS feed

  • Pergunta

  • Boa tarde pessoal, será que alguém aí consegue me ajudar?

    recebo emails com XML e preciso de um srcipt que quando esse email chegar.. ele abra o xml, copie todo o conteúdo e devolva no corpo de um novo email que será enviado sempre para o mesmo destino de forma automática.. só nao sei como fazer.. :D

    segunda-feira, 3 de agosto de 2015 18:48

Respostas

  • Bom dia Vanderley_jlle,

    Tudo bem?

    Estive pensando sobre o que você quer fazer e acredito que a melhor opção para você fazer o que está tentando fazer é criar uma pasta de arquivos temporários, fazer o download nessa pasta, copiar o conteúdo como você deseja fazer e depois deletar este arquivo. Tudo isso via código é claro. Até porque para abrir o anexo ele precisa ir para uma pasta temporária de sistema.

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Sugerido como Resposta Marcos SJ sexta-feira, 28 de agosto de 2015 12:42
    • Marcado como Resposta Marcos SJ sexta-feira, 28 de agosto de 2015 20:44
    sexta-feira, 28 de agosto de 2015 12:42

Todas as Respostas

  • Bom dia Vanderley,

    Você quer que te forneçam um código completo para você utilizar em sua aplicação?

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 4 de agosto de 2015 13:50
  • Boa tarde Marcos, eu estou tentando montar o código, mas não sei como faço para transformar o anexo em dados de uma variável.. então gostaria de conseguir se possível essa parte que falta.. ou o código inteiro.. pois tenho pouco conhecimento em VBA. 

    Obrigado

    terça-feira, 4 de agosto de 2015 16:34
  • Olá Vanderley,

    Mostre o trecho de código com o qual tem dúvida e haverão usuários que irão te auxiliar, do contrário, você precisará consultar um programador para executar o seu projeto.

    Não o encorajo a fazer solicitações de código completo ou parcial para utilizar em suas aplicações, mas sim o de codificar seus próprios projetos.

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 4 de agosto de 2015 17:52
  • obrigado pela dica.. entao segue o código que eu tenho... 

    dessa forma eu consigo abrir um xml que esta no computador e inserir o seu conteúdo no corpo de texto de um email..  mas eu preciso que ao invés de pegar o xml do pc ele pegue o xml anexo que eu recebo e insira no corpo do texto... e

    Public Sub CreateNewMessage()
    Dim objMsg As MailItem
    Dim Selection As Selection
    Dim obj As Object
    Dim anexo As Attachment
    Dim anexos As Attachments
    
    Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim strXml As String
    strXml = FSO.OpenTextFile("C:\Users\Note\Desktop\xml\xmlxmlxmlteste.xml").ReadAll
    
    
     
    Set Selection = ActiveExplorer.Selection
     
    For Each obj In Selection
     
    Set objMsg = Application.CreateItem(olMailItem)
     
     With objMsg
      .To = "email@dominio.com"
      .Subject = "XML"
      .Categories = ""
      .Body = strXml
      .Display
      '.Send
     
    End With
    Set objMsg = Nothing
     
    Next
     
    End Sub

    terça-feira, 4 de agosto de 2015 20:24
  • Bom dia Vanderley_jlle,

    Tudo bem?

    Estive pensando sobre o que você quer fazer e acredito que a melhor opção para você fazer o que está tentando fazer é criar uma pasta de arquivos temporários, fazer o download nessa pasta, copiar o conteúdo como você deseja fazer e depois deletar este arquivo. Tudo isso via código é claro. Até porque para abrir o anexo ele precisa ir para uma pasta temporária de sistema.

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Sugerido como Resposta Marcos SJ sexta-feira, 28 de agosto de 2015 12:42
    • Marcado como Resposta Marcos SJ sexta-feira, 28 de agosto de 2015 20:44
    sexta-feira, 28 de agosto de 2015 12:42