DataFlex

Example: MailMan.FetchAll method

Demonstrates how to call the FetchAll method. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMailman
    Variant vBundle
    Handle hoBundle
    Boolean iKeepOnServer
    Boolean iHeadersOnly
    Integer iNumBodyLines
    String sTemp1

    Move False To iSuccess

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

    // Setup mailman with POP3 server and login settings...
    // ...
    // ...

    Get Create (RefClass(cComChilkatEmailBundle)) To hoBundle
    If (Not(IsComObjectCreated(hoBundle))) Begin
        Send CreateComObject of hoBundle
    End
    Move True To iKeepOnServer
    Move False To iHeadersOnly
    // numBodyLines only applies if downloading headers-only.
    Move 0 To iNumBodyLines

    Get pvComObject of hoBundle to vBundle
    Get ComFetchAll Of hoMailman iKeepOnServer iHeadersOnly iNumBodyLines vBundle To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // ...
    // ...


End_Procedure