MaximoAccess

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

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?
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11235
    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 [Você precisa estar registrado e conectado para ver este link.] 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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9725
    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [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, 13:25

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

    Segue Print em anexo.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9725
    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.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [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.]
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11235
    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 [Você precisa estar registrado e conectado para ver este link.] 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".
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9725
    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.]



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [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?
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11235
    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 [Você precisa estar registrado e conectado para ver este link.] 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.

    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12266
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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 14 Dez 2017, 04:21