(DataFlex) Access Attached Message (Embedded Email)

How to access an email embedded within another email (i.e. an attached message).

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoEmail
    Boolean iSuccess
    Integer iNumAttached
    Variant vEmail2
    Handle hoEmail2
    String sTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    // Load an email from a .eml
    Get ComLoadEml Of hoEmail "embeddedEmail.eml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Display how many attached emails are embedded within
    // this one:
    Get ComNumAttachedMessages Of hoEmail To iNumAttached
    Showln "numAttached = " iNumAttached

    // Get the 1st attached message.

    Get ComGetAttachedMessage Of hoEmail 0 To vEmail2
    If (IsComObject(vEmail2)) Begin
        Get Create (RefClass(cComChilkatEmail)) To hoEmail2
        Set pvComObject Of hoEmail2 To vEmail2
    End
    Get ComLastMethodSuccess Of hoEmail To bTemp1
    If (bTemp1 = True) Begin

        // Display the subject, From, and a header field...
        Get ComSubject Of hoEmail2 To sTemp1
        Showln sTemp1
        Get ComFrom Of hoEmail2 To sTemp1
        Showln sTemp1
        Get ComGetHeaderField Of hoEmail2 "X-SOMETHING" To sTemp1
        Showln sTemp1
    End



End_Procedure