Receiving Emails in Access Database using CDO 2000 library

[nector]

Hello.

I'm trying to receive some emails into my MS Access database directly from my Gmail account using CDO 2000 library, but somehow I'm getting an error see the pictures for the error:

VBA CODE

Private Sub CmdNewEmails_Click()
    Dim objSession As Object
    Dim objInbox As Object
    Dim objMessage As Object
    Dim strServer As String
    Dim strUsername As String
    Dim strPassword As String
    Dim strMailbox As String
    Dim strSubject As String
    Dim strBody As String
    Dim i As Integer

    ' **Configuration**
    strServer = "smtp.gmail.com" ' Replace with your IMAP server
    strUsername = DLookup("[EmailAddress]", "[tblSpecialcompanyDetails]", "[CompanyID] = 1") ' Replace with your email address
    strPassword = DLookup("[Password]", "[tblSpecialcompanyDetails]", "[CompanyID] = 1") ' Replace with your email password
    strMailbox = DLookup("[EmailAddress]", "[tblSpecialcompanyDetails]", "[CompanyID] = 1") ' Or any mailbox you want to check

    ' **Create CDO Objects**
    Set objSession = CreateObject("CDO.Session")
    Set objInbox = CreateObject("CDO.Inbox")
    Set objMessage = CreateObject("CDO.Message")

    ' **Set up the session**
    With objSession
        .Server = strServer
        .UserName = strUsername
        .Password = strPassword
        .ProfileName = DLookup("[CompanyName]", "[tblSpecialcompanyDetails]", "[CompanyID] = 1") ' Or your profile name
        .ImapServer = strServer
        .ImapPort = 465 ' Or the appropriate port for your server
        .ImapUseSSL = True ' Or False, depending on your server
        .ImapServer = strServer
    End With

    ' **Open the mailbox**
    With objInbox
        .Session = objSession
        .Open strMailbox
    End With

    ' **Retrieve emails**
    With objInbox
        For i = 1 To .MessageCount
            Set objMessage = .GetMessage(i)
            ' **Get email data**
            strSubject = objMessage.Subject
            strBody = objMessage.Body
            ' **Store data in Access table (example)**
            ' Replace "YourTable" with your table name
            ' Replace the fields with your table fields
            With CurrentDb.OpenRecordset("tblEmailReceipts", dbOpenDynaset)
                .AddNew
                .fields("Subject") = strSubject
                .fields("Body") = strBody
                .Update
                .Close
            End With
        Next i
    End With

    ' **Clean up objects**
    Set objMessage = Nothing
    Set objInbox = Nothing
    Set objSession = Nothing

End Sub

 

[sonic8]

using CDO 2000 library

You mean the "Microsoft CDO for Windows 2000 Library"?
That does neither contain a CDO.Session nor a CDO.Inbox class.
This CDO library is only meant to send emails, not to receive them.

 

[Uncle Gizmo]

You might find this a little more helpful!

Before you can receive emails you have to set an email address up and to do that you use something like outlook Gmail Yahoo... Now you have an email address, you give the email address to someone, they send an email but it doesn't go to you, it goes to outlook or Gmail or wherever and is stored there then you need to retrieve it from that location...

 

[nector]

Before you can receive emails you have to set an email address up and to do that you use something like outlook Gmail Yahoo... Now you have an email address, you give the email address to someone, they send an email but it doesn't go to you, it goes to outlook or Gmail or wherever and is stored there then you need to retrieve it from that location...

Exactly the point here

The issue here is I'm able to send the emails to many people, including attachments from MS Access, now receiving or retrieving the emails from Gmail I needed to use :

' **Configuration**
    strServer = "your_imap_server" ' Replace with your IMAP server
    strUsername = "your_email_address" ' Replace with your email address
    strPassword = "your_password" ' Replace with your email password
    strMailbox = "INBOX" ' Or any mailbox you want to check

The problem here is that MS Access itself doesn't have a built-in library for directly interacting with IMAP servers like Gmail, the work around is try and figure to use the closest COM

 

[cheekybuddha]

but somehow I'm getting an error see the pictures for the error:

Where did you find this code?

Did you write it, or get ChatGPT to write it?

the work around is try and figure to use the closest COM

Hmmm.....

 

[nector]

Okay it's a mixture of VB6 and some translation to come up with this, in some bits are from VB6 and VBA the problem which i have or I see the critical killer is how to reference the correct library in order to create an object session, that is where the problem is . The code will work fine if the correct or equivalent library is referenced.

But I will not give up I'm almost near

 

[The_Doc_Man]

CDO is an SMTP sender program. It does not have a client/receiver capability. You need a formal mail client to interact with IMAP. It is possible for you to employ modules from the Win32 API library, I suppose, but it would be easier at this point to just use a standard over-the-counter client. If there is a regulatory reason why you HAVE to "roll your own" then you have a complex road ahead of you.

 

[nector]

Yes, the road is quite complex, but somehow, I have to find a library in MS Access equivalent VB6 :

EAGetMailObj ActiveX Object

This is the one I cannot find in MS Access to create a session

 

[cheekybuddha]

There used to be a (paid?) library called vbMAPI that might do what you need, but I'm not sure that GMail plays nicely with it anymore (if it ever did).

You will probably be better off researching using GMail's API's for accessing your account and using web requests and JSON.

 

[theDBguy]

You will probably be better off researching using GMail's API's for accessing your account and using web requests and JSON.

+1

 

[sonic8]

[...] I have to find a library in MS Access equivalent VB6 :

EAGetMailObj ActiveX Object

This is the one I cannot find in MS Access to create a session

EAGetMail is a commercial 3rd party component.
You buy a license, then download and install their setup.
After you did this it should also be available in Microsoft Access/VBA. They even have a 64bit edition of their component. So, I don't see a reason why you couldn't use this component if you are sure it satisfies your requirements on the technical level.