(DataFlex) Transition from Imap.FetchSequenceAsMime to Imap.FetchSingleBd

Provides instructions for replacing deprecated FetchSequenceAsMime method calls with FetchSingleBd.

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
    Integer iStartSeqNum
    Integer iCount
    Variant vSa
    Handle hoSa
    Boolean iSuccess
    Variant vBdMime
    Handle hoBdMime
    Boolean iBUid
    Integer i
    String sTemp1
    Boolean bTemp1

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

    // ...
    // ...

    Move 1 To iStartSeqNum
    Move 5 To iCount

    // ------------------------------------------------------------------------
    // The FetchSequenceAsMime method is deprecated:

    Get ComFetchSequenceAsMime Of hoImap iStartSeqNum iCount To vSa
    If (IsComObject(vSa)) Begin
        Get Create (RefClass(cComCkStringArray)) To hoSa
        Set pvComObject Of hoSa To vSa
    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 hoSa

    // ------------------------------------------------------------------------
    // Do the equivalent using FetchSingleBd.

    Set ComAutoDownloadAttachments Of hoImap To True

    Move False To iSuccess
    Get Create (RefClass(cComChilkatBinData)) To hoBdMime
    If (Not(IsComObjectCreated(hoBdMime))) Begin
        Send CreateComObject of hoBdMime
    End
    Move False To iBUid
    Move 0 To i
    While (i < iCount)
        Get pvComObject of hoBdMime to vBdMime
        Get ComFetchSingleBd Of hoImap (iStartSeqNum + i) iBUid vBdMime To iSuccess
        // ...
        // ...

        Move (i + 1) To i
    Loop



End_Procedure