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

    Coletar dados Caixa entrada emails

    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 02/09/2016

    Coletar dados Caixa entrada emails Empty Coletar dados Caixa entrada emails

    Mensagem  ictsp 13/5/2021, 15:19

    Prezados colegas, não tenho experiência em vba, mas com a ajuda do fórum tenho conseguido desenvolver algumas coisas.
    É possível coletar dados de email do outlook através do vba access?
    Minha idéia é coletar do email recebido o nome e assunto e salvar em um bd.
    Desde já, agradeço a ajuda.

    Pesquisando na sala de repositórios, achei esse código do mestre JPaulo. Porém não funcionou com meu Outlook.
    Minha Referencia Vba é Microsoft Outlook 14.0

    Código:
    'Habilite a Referencia VBA Microsoft Outlook 11.0 ou 12.0 Object Library
    Public Sub OutlookEnviados()
    Dim TempRst As DAO.Recordset
    Dim rst As DAO.Recordset
    Dim OlApp As Outlook.Application
    Dim Enviados As Outlook.MAPIFolder
    Dim EnviadosItems As Outlook.Items
    Dim Mailobject As Object
    Dim db As DAO.Database

    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete * from tblEmailsEnviados"
    DoCmd.SetWarnings True

    Set db = CurrentDb

    Set OlApp = CreateObject("Outlook.Application")
    Set Enviados = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderSentMail)
    Set TempRst = CurrentDb.OpenRecordset("tblEmailsEnviados")

    Set EnviadosItems = Enviados.Items

    For Each Mailobject In EnviadosItems
       
        With TempRst
           
            .AddNew
            !Titulo = Mailobject.Subject
            !De = Mailobject.SenderName
            !Para = Mailobject.To
            !Corpo = Mailobject.Body
            !DataEnvio = Mailobject.SentOn
            .Update
        End With

    Next
    MsgBox "Download completo...", vbInformation
    Set OlApp = Nothing
    Set Enviados = Nothing
    Set EnviadosItems = Nothing
    Set Mailobject = Nothing
    Set TempRst = Nothing
    End Sub
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 02/09/2016

    Coletar dados Caixa entrada emails Empty Re: Coletar dados Caixa entrada emails

    Mensagem  ictsp 17/5/2021, 18:32

    Prezados colegas, o código do mestre JPaulo funciona perfeitamente. Porém, tenho uma conta cadastrada no Outlook, por isso não está a funcionar no meu bd.
    Os colegas teriam alguma idéia de como eu acesso essa pasta destacada?
    Desde já, muito obrigado!

    Coletar dados Caixa entrada emails Duvida16

      Data/hora atual: 14/6/2021, 06:47