MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Receber e-mails com anexos atraves do Access

    Compartilhe

    Filipe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 09/12/2010

    Receber e-mails com anexos atraves do Access

    Mensagem  Filipe em Qui 09 Dez 2010, 10:03

    Olá, eu sou novo aqui no fórum. Estou com um problema, e se puderem me ajudar ficarei agradecido.

    Eu gostaria de receber e-mails com anexos através do Access. Para isso eu vinculei uma tabela do Access com o Outlook, porém eu só recebo os dados das mensagens, mas não consigo receber os anexos.

    O que devo fazer para recebê-los?

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  criquio em Qui 09 Dez 2010, 10:58

    Tentou vincular uma listbox ao campo anexos do Outlook? Poderia tentar colocar os anexos do outlook como fonte para a listbox ou combo ou subform.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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.


    Filipe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 09/12/2010

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  Filipe em Qui 09 Dez 2010, 11:48

    Como eu poderia fazer isso? Não sei onde ficam armazenados os anexos do Outlook.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  JPaulo em Qui 09 Dez 2010, 12:13

    Não sei se ajuda, mas este código salva todos os anexos dos emails recebidos(inbox), numa pasta em C:\AnexosRecebidos

    Tem de habilitar a referencia VBA:
    Microsoft Outlook xx.0 Object Library


    Option Explicit

    Sub SalvaAnexosDosEmails()
    On Error GoTo SalvaAnexosDosEmails_err

    Dim ns As NameSpace
    Dim Inbox As MAPIFolder
    Dim Item As Object
    Dim Atmt As Attachment
    Dim FileName As String
    Dim i As Integer
    Set ns = GetNamespace("MAPI")
    Set Inbox = ns.GetDefaultFolder(olFolderInbox)
    i = 0
    ' Verifica a caixa de entrada de mensagens
    If Inbox.Items.Count = 0 Then
    MsgBox "Não existem mensagens na sua Caixa de Entrada", vbInformation, "Erro"
    Exit Sub
    End If
    ' Verifica se os emails têm anexos
    For Each Item In Inbox.Items
    ' Salva os anexos encontrados
    For Each Atmt In Item.Attachments
    FileName = "C:\AnexosRecebidos" & Atmt.FileName
    Atmt.SaveAsFile FileName
    i = i + 1
    Next Atmt
    Next Item
    If i > 0 Then
    MsgBox "Encontrados " & i & " anexos." _
    & vbCrLf & "Salvos na pasta C:\AnexosRecebidos" _
    & vbCrLf & vbCrLf & "Sucesso.", vbInformation, "Fim!"
    Else
    MsgBox "Não foram encontrados anexos nos emails recebidos", vbInformation, "Fim!"
    End If
    SalvaAnexosDosEmails_exit:
    Set Atmt = Nothing
    Set Item = Nothing
    Set ns = Nothing
    Exit Sub
    SalvaAnexosDosEmails_err:
    MsgBox "Ocorreu um erro inesperado." _
    & vbCrLf & "Erro numero: " & Err.Number _
    & vbCrLf & "Erro Descrição: " & Err.Description _
    , vbCritical, "Erro!"
    Resume SalvaAnexosDosEmails_exit
    End Sub


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Filipe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 09/12/2010

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  Filipe em Qui 09 Dez 2010, 13:25

    JPaulo, quando excuto esse código aparece um erro de compilação.

    Segue Print em anexo.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  JPaulo em Qui 09 Dez 2010, 13:32

    Não vejo o print mas testei aqui e funcionaou em pleno.



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  criquio em Qui 09 Dez 2010, 13:51

    Habilitou a referência Microsoft Outlook xx.0 Object Library?


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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.


    Filipe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 09/12/2010

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  Filipe em Qui 09 Dez 2010, 15:09

    Habilitei sim. O erro ocorre na sintax "Atmt.SaveAsFile FileName".

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  JPaulo em Qui 09 Dez 2010, 15:44

    Habilite neste exemplo a referencia Microsoft Outlook xx.0 Object Library


    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Filipe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 09/12/2010

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  Filipe em Qui 09 Dez 2010, 16:02

    JPaulo, ocorre o mesmo erro. Eu observei que o meu Outlook está configurado como POP e não MAPI. Esse código está utilizando o MAPI. Teria como utilizar a configuração POP?

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  criquio em Dom 05 Jun 2011, 16:02

    Filipe, conseguiu resolver essa questão? Vou passar o tópico a Resolvido. Se necessário, reabra-o.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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.


    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  HARYSOHN em Sab 02 Jul 2011, 16:05

    Caro JP porventur tem algum exemplo contendo os objetos InBox e etc.. para rebeer e-mails atraves do access?


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Diogo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 03/01/2011

    Guarda anexos do oulook em uma pasta específica do PC via Access

    Mensagem  Diogo em Sab 17 Dez 2011, 21:07

    Eu gostaria de reabrir este tópico já que estou com o mesmo problema que teve o Filipe e não consigo resolvé-lo.
    O erro é o mesmo. ver código a vermelho.
    saudações
    di

    Sub SalvaAnexosDosEmails()
    On Error GoTo SalvaAnexosDosEmails_err

    Dim ns As NameSpace
    Dim Inbox As MAPIFolder
    Dim Item As Object
    Dim Atmt As Attachment
    Dim FileName As String
    Dim i As Integer
    Set ns = GetNamespace("MAPI")
    Set Inbox = ns.GetDefaultFolder(olFolderInbox)
    i = 0
    ' Verifica a caixa de entrada de mensagens
    If Inbox.Items.Count = 0 Then
    MsgBox "Não existem mensagens na sua Caixa de Entrada", vbInformation, "Erro"
    Exit Sub
    End If
    ' Verifica se os emails têm anexos
    For Each Item In Inbox.Items
    ' Salva os anexos encontrados
    For Each Atmt In Item.Attachments
    FileName = "C:\AnexosRecebidos" & Atmt.FileName
    Atmt.SaveAsFile FileName
    i = i + 1
    Next Atmt
    Next Item
    If i > 0 Then
    MsgBox "Encontrados " & i & " anexos." _
    & vbCrLf & "Salvos na pasta C:\AnexosRecebidos" _
    & vbCrLf & vbCrLf & "Sucesso.", vbInformation, "Fim!"
    Else
    MsgBox "Não foram encontrados anexos nos emails recebidos", vbInformation, "Fim!"
    End If
    SalvaAnexosDosEmails_exit:
    Set Atmt = Nothing
    Set Item = Nothing
    Set ns = Nothing
    Exit Sub
    SalvaAnexosDosEmails_err:
    MsgBox "Ocorreu um erro inesperado." _
    & vbCrLf & "Erro numero: " & Err.Number _
    & vbCrLf & "Erro Descrição: " & Err.Description _
    , vbCritical, "Erro!"
    Resume SalvaAnexosDosEmails_exit
    End Sub

    Diogo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 03/01/2011

    Resolvido bastava adicionar outlook.attachment

    Mensagem  Diogo em Sab 17 Dez 2011, 22:20

    Sub SalvaAnexosDosEmails()
    On Error GoTo SalvaAnexosDosEmails_err

    Dim ns As NameSpace
    Dim Inbox As MAPIFolder
    Dim Item As Object
    Dim Atmt As Outlook.Attachment
    'Dim Atmt As Attachment
    Dim FileName As String
    Dim i As Integer
    Set ns = GetNamespace("MAPI")
    Set Inbox = ns.GetDefaultFolder(olFolderInbox)
    i = 0
    ' Verifica a caixa de entrada de mensagens
    If Inbox.Items.Count = 0 Then
    MsgBox "Não existem mensagens na sua Caixa de Entrada", vbInformation, "Erro"
    Exit Sub
    End If
    ' Verifica se os emails têm anexos
    For Each Item In Inbox.Items
    ' Salva os anexos encontrados
    For Each Atmt In Item.Attachments
    FileName = "D:\anexos\" & Atmt.FileName
    Atmt.SaveAsFile FileName
    i = i + 1
    Next Atmt
    Next Item
    If i > 0 Then
    MsgBox "Encontrados " & i & " anexos." _
    & vbCrLf & "Salvos na pasta D:\anexos\" _
    & vbCrLf & vbCrLf & "Sucesso.", vbInformation, "Fim!"
    Else
    MsgBox "Não foram encontrados anexos nos emails recebidos", vbInformation, "Fim!"
    End If
    SalvaAnexosDosEmails_exit:
    Set Atmt = Nothing
    Set Item = Nothing
    Set ns = Nothing
    Exit Sub
    SalvaAnexosDosEmails_err:
    MsgBox "Ocorreu um erro inesperado." _
    & vbCrLf & "Erro numero: " & Err.Number _
    & vbCrLf & "Erro Descrição: " & Err.Description _
    , vbCritical, "Erro!"
    Resume SalvaAnexosDosEmails_exit
    End Sub


    juniorramoadao
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1
    Registrado : 28/03/2012

    Receber e-mails com anexos atraves do Access

    Mensagem  juniorramoadao em Qui 03 Jul 2014, 21:01

    JPaulo como faço para receber as informações desse codigo que voce postou para que ele pegue tambem os campos "CC e Cco" por favor precisando muito disso fico no aguardo.

    se poder ja postar o codigo completo com a alteração agradeço muito obrigado.

    .AddNew
           !Titulo = Mailobject.Subject
           !De = Mailobject.SenderName
           !Para = Mailobject.To
           !DataEnvio = Mailobject.SentOn

      Data/hora atual: Qui 08 Dez 2016, 00:09