Access - Recibir correos en Access

Sub DescargarCorreos()

    ' Referencia a la biblioteca de objetos de Outlook

    Dim objOutlook As Object

    Set objOutlook = CreateObject("Outlook.Application")

    ' Objeto que representa tu cuenta de correo

    Dim objNamespace As Object

    Set objNamespace = objOutlook.GetNamespace("MAPI")

    ' Obtener la carpeta de entrada (Inbox)

    Dim objFolder As Object

    Set objFolder = objNamespace.GetDefaultFolder(6) ' 6 representa la carpeta de entrada

    ' Recorrer los correos en la carpeta de entrada

    Dim objItem As Object

    For Each objItem In objFolder.Items

        ' Verificar las características del correo

        If objItem.SenderEmailAddress = "tu_correo@dominio.com" And objItem.Attachments.Count > 0 Then

            ' Descargar los archivos adjuntos

            Dim objAttachment As Object

            For Each objAttachment In objItem.Attachments

                ' Aquí puedes guardar el archivo adjunto en tu base de datos o en una ubicación específica

                ' Ejemplo: objAttachment.SaveAsFile "C:\Ruta\archivo_adjunto.pdf"

                ' Procesar los datos del archivo adjunto en tu base de datos

            Next objAttachment

        End If

    Next objItem

    ' Liberar los objetos

    Set objFolder = Nothing

    Set objNamespace = Nothing

    Set objOutlook = Nothing

End Sub