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


3 participantes

    [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel

    waraujo
    waraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 04/02/2010

    [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel Empty Salvar Anexo de Um Email em Uma Pasta é Possivel

    Mensagem  waraujo 29/9/2011, 15:43

    Srs. Estou Aqui para Mais Uma Ajuda.....

    Seria Possível Salvar o anexo de Email do Outlook em uma Pasta através de VBA ?

    Andei Procurando na Internet, mas não tem nada que faça isto direito !!!!!!!

    Aos Mestres deste Fórum Fico no Aguardo !!!!!

    Abraço !!!!


    .................................................................................
    Que Deus Abençoe à todos aqui presente.
    Não Fique Pobre Fazendo Festa com Dinheiro Emprestado.
    Eclesiástico 18,33
    Wellington Araujo
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel Empty Re: [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel

    Mensagem  criquio 29/9/2011, 16:20

    Você já deu uma pesquisada no forum? Pesquise por "Outlook", temos alguma coisa sobre isso se muito não me falha a memória. Se necessário, veja na minha assinatura abaixo link para um vídeo com dicas de pesquisa no forum.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    waraujo
    waraujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 04/02/2010

    [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel Empty Re: [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel

    Mensagem  waraujo 1/10/2011, 17:24

    Ok Criquio tem vários Tópicos mas não tem Nenhum que fala sobre o assunto...
    consegui um Codigo na Internet.

    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) = "xlsx" Then
    FileName = "C:\temp\" & Format(Item.CreationTime, "yyyymmdd_hhnnss_") & Atmt.FileName
    Atmt.SaveAsFile FileName
    End If
    Next Atmt

    End Sub

    Fonte do Codigo : http://www.ambienteoffice.com.br/outlook/salvar_anexos_de_novas_mensagens_numa_pasta/


    Porem este Código deve estar dentro do VBA do Outlook ou Seja Preciso Criar uma Regra para Assim que chegar o Email com o Assunto desejado o Código seja Executado....
    Eu queria Um Codigo Para colocar no Access, para o Meu Aplicativo ir Buscar nas novas msg do Outlook.....
    Tentei Colocar este Codigo em Um Modulo No Access mas o mesmo da Erro de Compilação e Aponta Para Linha

    Atmt.SaveAsFile FileName

    Quem Puder Ajudar e Saber como Fazer isto, Muito Obrigado....





    .................................................................................
    Que Deus Abençoe à todos aqui presente.
    Não Fique Pobre Fazendo Festa com Dinheiro Emprestado.
    Eclesiástico 18,33
    Wellington Araujo
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel Empty Re: [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel

    Mensagem  vieirasoft 7/10/2011, 11:45

    Talvez fosse melhor consultar um bom Fórum em Outlook

    Conteúdo patrocinado


    [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel Empty Re: [Resolvido]Salvar Anexo de Um Email em Uma Pasta é Possivel

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:15