(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkMime.pb"

Procedure ChilkatExample()

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

    mime.i = CkMime::ckCreate()
    If mime.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Add a few header fields:
    success.i = CkMime::ckAddHeaderField(mime,"Description","this is a test")
    success = CkMime::ckAddHeaderField(mime,"MyId","123")

    textBody.s = "This is the plain-text body"

    success = CkMime::ckSetBodyFromPlainText(mime,textBody)

    Debug CkMime::ckGetMime(mime)

    ; 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:
    CkMime::setCkEncoding(mime, "base64")

    ; Show the MIME again, this time using the base64 
    ; transfer encoding:
    Debug CkMime::ckGetMime(mime)

    ; It should look like this:

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


    CkMime::ckDispose(mime)


    ProcedureReturn
EndProcedure