(PureBasic) Read All Email from POP3 Inbox by Message Numbers

Demonstrates how to read all of the email from a POP3 inbox by fetching each email by it's message number.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkEmail.pb"
IncludeFile "CkMailMan.pb"

Procedure ChilkatExample()

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    mailman.i = CkMailMan::ckCreate()
    If mailman.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Set the POP3 server's hostname
    CkMailMan::setCkMailHost(mailman, "pop.someMailServer.com")

    ; Set the POP3 login/password.
    CkMailMan::setCkPopUsername(mailman, "myLogin")
    CkMailMan::setCkPopPassword(mailman, "myPassword")

    ; Get the number of messages in the mailbox.
    numMessages.i = CkMailMan::ckGetMailboxCount(mailman)

    ; Message numbers are specific to a POP3 session. 
    ; If a maildrop (i.e. inbox)  contains 10 messages, 
    ; the message numbers will be 1, 2, 3, ... 10. 
    ; If message number 1 is deleted and a new POP3 session 
    ; is established, there will be 9 messages numbered 1, 2, 3, ... 9. 

    i.i = 1

    email.i
    While i <= numMessages

        email = CkMailMan::ckFetchByMsgnum(mailman,i)
        If CkMailMan::ckLastMethodSuccess(mailman) <> 1
            Debug CkMailMan::ckLastErrorText(mailman)
            CkMailMan::ckDispose(mailman)
            ProcedureReturn
        EndIf

        Debug CkEmail::ckFrom(email) + ": " + CkEmail::ckSubject(email) + Chr(10)
        CkEmail::ckDispose(email)

        i = i + 1

    Wend


    CkMailMan::ckDispose(mailman)


    ProcedureReturn
EndProcedure