DataFlex

Transition from MailMan.GetUidls to MailMan.FetchUidls

Provides instructions for replacing deprecated GetUidls method calls with FetchUidls. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMailman
    Variant vSa
    Handle hoSa
    Variant vSt
    Handle hoSt
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    // ...
    // ...

    // ------------------------------------------------------------------------
    // The GetUidls method is deprecated:

    Get ComGetUidls Of hoMailman To vSa
    If (IsComObject(vSa)) Begin
        Get Create (RefClass(cComCkStringArray)) To hoSa
        Set pvComObject Of hoSa To vSa
    End
    Get ComLastMethodSuccess Of hoMailman To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // ...
    // ...

    Send Destroy of hoSa

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

    Get Create (RefClass(cComChilkatStringTable)) To hoSt
    If (Not(IsComObjectCreated(hoSt))) Begin
        Send CreateComObject of hoSt
    End
    Get pvComObject of hoSt to vSt
    Get ComFetchUidls Of hoMailman vSt To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure