IMAP Download All Email One at a Time

Demonstrates how to download every email in an IMAP mailbox one at a time as a MIME string or as an email object. (The MIME contains the full contents of the email including all attachments.)

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

LOCAL loImap
LOCAL lnSuccess
LOCAL lnBUid
LOCAL lcMimeStr
LOCAL i
LOCAL n
LOCAL loEmail

loImap = CreateObject('Chilkat.Imap')

*  Anything unlocks the component and begins a fully-functional 30-day trial.
lnSuccess = loImap.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Connect to an IMAP server.
lnSuccess = loImap.Connect("mail.chilkatsoft.com")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Login
lnSuccess = loImap.Login("myLogin","myPassword")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Select an IMAP mailbox
lnSuccess = loImap.SelectMailbox("Inbox")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Once the mailbox is selected, the NumMessages property
*  will contain the number of messages in the mailbox.
*  You may loop from 1 to NumMessages to
*  fetch each message by sequence number.

lnBUid = 0

n = loImap.NumMessages
FOR i = 1 TO n

    *  Download the email by sequence number.
    lcMimeStr = loImap.FetchSingleAsMime(i,lnBUid)

    *  ... your application may process each MIME string...
NEXT

*  An alternative is to download each email in the form of an
*  email object, like this:

FOR i = 1 TO n

    *  Download the email by sequence number.
    loEmail = loImap.FetchSingle(i,lnBUid)

    *  ... your application may process the email object...

    RELEASE loEmail
NEXT

*  Disconnect from the IMAP server.
loImap.Disconnect()