Xbase++

Create MIME Containing Plain-Text

See more MIME Examples

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. Xbase++

LOCAL nSuccess
LOCAL oMime
LOCAL cTextBody

nSuccess := 0

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

oMime := CreateObject("Chilkat.Mime")

//  Add a few header fields:
nSuccess := oMime:AddHeaderField("Description", "this is a test")
nSuccess := oMime:AddHeaderField("MyId", "123")

cTextBody := "This is the plain-text body"

nSuccess := oMime:SetBodyFromPlainText(cTextBody)

? oMime:GetMime()

//  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:
oMime:Encoding := "base64"

//  Show the MIME again, this time using the base64 
//  transfer encoding:
? oMime:GetMime()

//  It should look like this:

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

oMime:destroy()