MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Dúvida - Código para verificar um arquivo ZIP dentro de um email no Outlook

    avatar
    fagnanit
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 02/09/2012

    Dúvida - Código para verificar um arquivo ZIP dentro de um email no Outlook Empty Dúvida - Código para verificar um arquivo ZIP dentro de um email no Outlook

    Mensagem  fagnanit 2/9/2012, 22:59

    Boa tarde, Galera! Tudo bem?

    Será que vocês poderiam me ajudar?
    Preciso criar um código que ao receber um arquivo no meu email ele envie esse arquivo automaticamente para uma pasta.
    Só que tem um problema, as vezes eu recebo esse arquivo zipado (.zip) e eu gostaria que a macro abrisse o arquivo zipado e buscasse o arquivo que eu quero e jogasse dentro da pasta.
    O arquivo que tenho de jogar para pasta ele vem em formato (.xml) mas o grande problema é que as vezes ele vem dentro de um arquivo (.zip.

    Estou utilizando o código abaixo, ele está funcionando...mas gostaria de melhora-lo...que ele abrisse o arquivo .zip e buscasse o .xml. é possivel fazer isso?

    Public Sub SalvarAnexo(Item As MailItem)

    Dim Atmt As Attachment
    Dim FileName As String

    For Each Atmt In Item.Attachments

    If Right(Atmt.FileName, 4) = ".xml" Then
    FileName = "C:\My Personal Data\" & Atmt.FileName
    Atmt.SaveAsFile FileName
    End If
    If Right(Atmt.FileName, 4) = ".zip" Then
    FileName = "C:\My Personal Data\" & Atmt.FileName
    Atmt.SaveAsFile FileName
    End If
    Next Atmt

    End Sub


    Obrigado!

    Abraços,

    Thiago

      Data/hora atual: 8/11/2024, 06:01