[Resolvido]Coletar dados Caixa entrada emails

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

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!

Exlui conta em questão e criei uma nova diretório principal do outlook