(DataFlex) Delete All Email in a POP3 Mailbox

Delete all email in a POP3 mailbox.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoMailman
    Variant vSa
    Handle hoSa
    Boolean iSuccess
    String sTemp1

    // 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.
    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    // Set the POP3 server's hostname
    Set ComMailHost Of hoMailman To "pop.someMailServer.com"

    // Set the POP3 login/password.
    Set ComPopUsername Of hoMailman To "myLogin"
    Set ComPopPassword Of hoMailman To "****"

    // 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.
    Set ComImmediateDelete Of hoMailman To True

    // First, get all the UIDLs.
    Get ComGetUidls Of hoMailman To vSa
    If (IsComObject(vSa)) Begin
        Get Create (RefClass(cComCkStringArray)) To hoSa
        Set pvComObject Of hoSa To vSa
    End

    // Next, delete them all.
    Get ComDeleteMultiple Of hoMailman vSa To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
    End

    Send Destroy of hoSa

    // We're done with the POP3 session, so it doesn't hurt to call this...
    Get ComPop3EndSession Of hoMailman To iSuccess


End_Procedure