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


5 participantes

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

    avatar
    Filipe
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Filipe 9/12/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
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  criquio 9/12/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: 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.

    avatar
    Filipe
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Filipe 9/12/2010, 11:48

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 9/12/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Receber e-mails com anexos atraves do Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Receber e-mails com anexos atraves do Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Receber e-mails com anexos atraves do Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    Filipe
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Filipe 9/12/2010, 13:25

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

    Segue Print em anexo.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 9/12/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Receber e-mails com anexos atraves do Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Receber e-mails com anexos atraves do Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Receber e-mails com anexos atraves do Access Folder_announce_new Instruções SQL como utilizar...
    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]Receber e-mails com anexos atraves do Access Empty Re: [Resolvido]Receber e-mails com anexos atraves do Access

    Mensagem  criquio 9/12/2010, 13:51

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


    .................................................................................
    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.

    avatar
    Filipe
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Filipe 9/12/2010, 15:09

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 9/12/2010, 15:44

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


    http://dl.dropbox.com/u/771097/filipe.rar



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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Receber e-mails com anexos atraves do Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Receber e-mails com anexos atraves do Access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Receber e-mails com anexos atraves do Access Folder_announce_new Instruções SQL como utilizar...
    avatar
    Filipe
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Filipe 9/12/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
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  criquio 5/6/2011, 16:02

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


    .................................................................................
    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.

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 2/7/2011, 16:05

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Receber e-mails com anexos atraves do Access Empty Guarda anexos do oulook em uma pasta específica do PC via Access

    Mensagem  Diogo 17/12/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
    avatar
    Diogo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Receber e-mails com anexos atraves do Access Empty Resolvido bastava adicionar outlook.attachment

    Mensagem  Diogo 17/12/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

    avatar
    juniorramoadao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  juniorramoadao 3/7/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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 22:28