DataFlex

Fetch an IMAP Message as MIME Text

Demonstrates the Chilkat Imap.FetchSingleAsMime method, which downloads one message and returns its MIME source as a string. If the second argument (bUid) is true, the first argument is a UID; otherwise it is a sequence number. This example fetches message 1's raw MIME.

Background: Sometimes you want the message exactly as it exists on the server — the raw MIME — rather than a parsed Email object. That is what you save to a .eml file, feed to another parser, or archive verbatim. This method returns the MIME as text; for messages that may contain binary data, the BinData variant FetchSingleBd preserves the exact bytes.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoImap
    String sMime
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    //  Demonstrates the Imap.FetchSingleAsMime method, which downloads one message and returns
    //  its MIME source as a string.  If the 2nd argument (bUid) is True, the 1st argument is a
    //  UID; otherwise it is a sequence number.

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

    Set ComSsl Of hoImap To True
    Set ComPort Of hoImap To 993

    Get ComConnect Of hoImap "imap.example.com" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComLogin Of hoImap "user@example.com" "myPassword" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComSelectMailbox Of hoImap "Inbox" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    //  Download message sequence number 1 and return its raw MIME.  bUid = False.
    Get ComFetchSingleAsMime Of hoImap 1 False To sMime
    Get ComLastMethodSuccess Of hoImap To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln sMime

    Get ComDisconnect Of hoImap To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure