(DataFlex) Transition from Imap.ListSubscribed to Imap.MbxList

Provides instructions for replacing deprecated ListSubscribed method calls with MbxList.

Note: This example requires Chilkat v11.0.0 or greater.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoImap
    String sReference
    String sMbxPattern
    Variant vMboxesObj
    Handle hoMboxesObj
    Boolean iSubscribed
    Variant vMboxes
    Handle hoMboxes
    Boolean iSuccess
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatImap)) To hoImap
    If (Not(IsComObjectCreated(hoImap))) Begin
        Send CreateComObject of hoImap
    End

    // ...
    // ...

    Move "" To sReference
    Move "*" To sMbxPattern

    // ------------------------------------------------------------------------
    // The ListSubscribed method is deprecated:

    // Lists only subscribed mailboxes.
    Get ComListSubscribed Of hoImap sReference sMbxPattern To vMboxesObj
    If (IsComObject(vMboxesObj)) Begin
        Get Create (RefClass(cComChilkatMailboxes)) To hoMboxesObj
        Set pvComObject Of hoMboxesObj To vMboxesObj
    End
    Get ComLastMethodSuccess Of hoImap To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // ...
    // ...

    Send Destroy of hoMboxesObj

    // ------------------------------------------------------------------------
    // Do the equivalent using MbxList.
    // Your application creates a new, empty Mailboxes object which is passed 
    // in the last argument and filled upon success.

    // Lists only subscribed mailboxes.
    Move True To iSubscribed

    Get Create (RefClass(cComChilkatMailboxes)) To hoMboxes
    If (Not(IsComObjectCreated(hoMboxes))) Begin
        Send CreateComObject of hoMboxes
    End
    Get pvComObject of hoMboxes to vMboxes
    Get ComMbxList Of hoImap iSubscribed sReference sMbxPattern vMboxes To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure