DataFlex

Transition from MailMan.FetchMultipleHeaders to MailMan.FetchUidlSet

Provides instructions for replacing deprecated FetchMultipleHeaders method calls with FetchUidlSet. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMailman
    Variant vSaUidls
    Handle hoSaUidls
    Variant vStUidls
    Handle hoStUidls
    Integer iNumBodyLines
    Variant vBundleObj
    Handle hoBundleObj
    Boolean iHeadersOnly
    Variant vBundleOut
    Handle hoBundleOut
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

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

    // ...
    // ...

    Get Create (RefClass(cComCkStringArray)) To hoSaUidls
    If (Not(IsComObjectCreated(hoSaUidls))) Begin
        Send CreateComObject of hoSaUidls
    End
    Get ComAppend Of hoSaUidls "aaa" To iSuccess
    Get ComAppend Of hoSaUidls "bbb" To iSuccess
    Get ComAppend Of hoSaUidls "ccc" To iSuccess

    Get Create (RefClass(cComChilkatStringTable)) To hoStUidls
    If (Not(IsComObjectCreated(hoStUidls))) Begin
        Send CreateComObject of hoStUidls
    End
    Get ComAppend Of hoStUidls "aaa" To iSuccess
    Get ComAppend Of hoStUidls "bbb" To iSuccess
    Get ComAppend Of hoStUidls "ccc" To iSuccess

    Move 5 To iNumBodyLines

    // ------------------------------------------------------------------------
    // The FetchMultipleHeaders method is deprecated:

    Get pvComObject of hoSaUidls to vSaUidls
    Get ComFetchMultipleHeaders Of hoMailman vSaUidls iNumBodyLines To vBundleObj
    If (IsComObject(vBundleObj)) Begin
        Get Create (RefClass(cComChilkatEmailBundle)) To hoBundleObj
        Set pvComObject Of hoBundleObj To vBundleObj
    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 hoBundleObj

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

    Move True To iHeadersOnly

    Get Create (RefClass(cComChilkatEmailBundle)) To hoBundleOut
    If (Not(IsComObjectCreated(hoBundleOut))) Begin
        Send CreateComObject of hoBundleOut
    End
    Get pvComObject of hoStUidls to vStUidls
    Get pvComObject of hoBundleOut to vBundleOut
    Get ComFetchUidlSet Of hoMailman vStUidls iHeadersOnly iNumBodyLines vBundleOut To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure