Wandarley Pereira

Graymalkin Muito obrigado amigo consegui realizar com seu codigo

Realmente o meu é o segundo caso. Eu recebo o XML no email e quero salva-lo na pasta designada como .txt O codigo acima salva o arquivo recebido independente da extensão como já está descrito no comentario irei fazer um teste com seu codigo já lhe retorno com a resposta amigo

Estou com um problema, eu estou com um código que guarda os arquivos anexados do Outlook, XML, PDF e outras extensões se quiser, mas preciso de uma outra coisa; No momento que chega um XML eu preciso que ele antes do arquivo chegue a pasta designada ele seja convertido em TXT Consegue me ajudar??? Resumindo Quando o XML chega no e-mail o codigo vai converter ele para TXT e salva o txt na pasta e não consegui resolver, irei partilhar meu codigo. Este Codigo pega os Anexos que recebemos no Outlook e guarda em uma pasta da Rede; Public Sub SalvaAnexos(Email As MailItem) Dim DiretorioAnexos As String 'aqui voce altera o diretorio que vai salvar os anexos DiretorioAnexos = "\\111.111.111.111\NFE\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 'Para adicionar outra extenção so colocar mais um if If Right(Anexo.FileName, 3) = "xml" Then Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName End If If Right(Anexo.FileName, 3) = "pdf" Then Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName End If 'Creditos Wandarley Pereira © Next Set Mail = Nothing End Sub Se Alguém puder me ajudar agradeço