(PureBasic) Delete All Email in a POP3 Mailbox

Delete all email in a POP3 mailbox.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkMailMan.pb"
IncludeFile "CkStringArray.pb"

Procedure ChilkatExample()

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

    ; The mailman object is used for receiving (POP3) 
    ; and sending (SMTP) email.
    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, "****")

    ; Make sure the ImmediateDelete property is set (this is the default)
    ; If ImmediateDelete is not set, messages marked for deletion
    ; by the Delete* methods will not be deleted until the POP3
    ; connection is closed by calling Pop3EndSession.
    CkMailMan::setCkImmediateDelete(mailman, 1)

    ; First, get all the UIDLs.
    sa.i = CkMailMan::ckGetUidls(mailman)

    ; Next, delete them all.
    success.i = CkMailMan::ckDeleteMultiple(mailman,sa)
    If success <> 1
        Debug CkMailMan::ckLastErrorText(mailman)
    EndIf

    CkStringArray::ckDispose(sa)

    ; We're done with the POP3 session, so it doesn't hurt to call this...
    success = CkMailMan::ckPop3EndSession(mailman)


    CkMailMan::ckDispose(mailman)


    ProcedureReturn
EndProcedure