(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
    Boolean iSuccess
    Variant vSa
    Handle hoSa
    String sTemp1

    //  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

    //  Any string argument automatically begins the 30-day trial.
    Get ComUnlockComponent Of hoMailman "30-day trial" To iSuccess
    If (iSuccess <> True) Begin
        Showln "Component unlock failed"
        Procedure_Return
    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