(DataFlex) Create MIME Containing Plain-Text

Calls SetBodyFromPlainText to load plain-text into the MIME body. Also sets the Content-Type header to "text/plain", and the Content-Transfer-Encoding to an appropriate transfer encoding based on the characters found in the text.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoMime
    Boolean iSuccess
    String sTextBody
    String sTemp1

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatMime)) To hoMime
    If (Not(IsComObjectCreated(hoMime))) Begin
        Send CreateComObject of hoMime
    End

    // Add a few header fields:
    Get ComAddHeaderField Of hoMime "Description" "this is a test" To iSuccess
    Get ComAddHeaderField Of hoMime "MyId" "123" To iSuccess

    Move "This is the plain-text body" To sTextBody

    Get ComSetBodyFromPlainText Of hoMime sTextBody To iSuccess

    Get ComGetMime Of hoMime To sTemp1
    Showln sTemp1

    // The MIME should look like this:

    // Description: this is a test
    // MyId: 123
    // Content-Type: text/plain; 
    // Content-Transfer-Encoding: 7bit
    // 
    // This is the plain-text body

    // Note: The Content-Transfer-Encoding may be changed.
    // For example, to use "base64", do this:
    Set ComEncoding Of hoMime To "base64"

    // Show the MIME again, this time using the base64 
    // transfer encoding:
    Get ComGetMime Of hoMime To sTemp1
    Showln sTemp1

    // It should look like this:

    // Description: this is a test
    // MyId: 123
    // Content-Type: text/plain
    // Content-Transfer-Encoding: base64
    // 
    // VGhpcyBpcyB0aGUgcGxhaW4tdGV4dCBib2R5
    // 


End_Procedure