none
VB para salvar anexos PDF e XML RRS feed

  • Pergunta

  • 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

  • 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