none
VB para salvar anexos PDF e XML RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Olá pessoal.

    Estou tentando colocar esse código para salvar os arquivo XML e PDF contidos no e-mail de determinada pessoa.

    Porem somente consigo que ele funcione para um dos arquivos. Vocês podem me ajudar?

           

    Atenciosamente,

    Paulo Lopes

    =================================

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

        DiretorioAnexos = "S:\NFE.KEIKO.COM.BR\"

        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) = "pdf" Or "xml" Then
                Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName

                'Else Right(Anexo.FileName, 3) = "xml" Then
                    'Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName
            End If

        Next

        Set Mail = Nothing
    End Sub

    =================================


    Paulo Lopes

    segunda-feira, 2 de junho de 2014 13:10
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    Public Sub ProcessarAnexo(Email As MailItem)
  Dim DiretorioAnexos As String
  Dim Anexo As Outlook.Attachment
  Dim strExtension As String

  DiretorioAnexos = "S:\NFE.KEIKO.COM.BR\"

  For Each Anexo In Email.Attachments
    strExtension = Left(LCase(Anexo.FileName), 3)
    If strExtension Like "pdf" _
    Or strExtension Like "xml" Then
      Anexo.SaveAsFile DiretorioAnexos & "\" & Anexo.FileName
    End If
  Next Anexo
End Sub

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

    terça-feira, 3 de junho de 2014 00:02
    |
    Moderador