Xbase++

Append Part to MIME

See more MIME Examples

Demonstrates the AppendPart method for adding sub-parts to MIME. Xbase++

LOCAL nSuccess
LOCAL oPtMime
LOCAL oTopLevelMime
LOCAL oPtMime2

nSuccess := 0

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

//  Create a text/plain part.
oPtMime := CreateObject("Chilkat.Mime")
oPtMime:SetBodyFromPlainText("This is the plain text body")
? oPtMime:GetMime()
? "****"

//  The ptMime contains:
//  ---------------------------------------
//  	Content-Type: text/plain
//  	Content-Transfer-Encoding: 7bit
//  
//  	This is the plain text body
//  ---------------------------------------

//  Start with an empty MIME object...
oTopLevelMime := CreateObject("Chilkat.Mime")

//  Initialize it to a multipart Content-Type.  We'll use multipart/mixed.
oTopLevelMime:NewMultipartMixed()

//  Append the ptMime as a child.
oTopLevelMime:AppendPart(oPtMime)
? oTopLevelMime:GetMime()
? "****"

//  The topLevelMime contains:
//  --------------------------
//  	Content-Type: multipart/mixed; boundary="------------010907090104040508040404"
//  
//  	--------------010907090104040508040404
//  	Content-Type: text/plain
//  	Content-Transfer-Encoding: 7bit
//  
//  	This is the plain text body
//  	--------------010907090104040508040404--
//  

//  IMPORTANT: A copy of the MIME passed in AppendPart is appended.
//  Therefore, in this case, changing ptMime does not change the text/plain sub-part in topLevelMime.
//  For example:
oPtMime:SetBody("this is the new plain text body.")
//  topLevelMime is unchanged.
? oTopLevelMime:GetMime()
? "****"

//  To change the content in topLevelMime, we must get the text/plain part.
//  For example:

oPtMime2 := CreateObject("Chilkat.Mime")
oTopLevelMime:PartAt(0, oPtMime2)

oPtMime2:SetBody("this is the new plain text body.")
//  Now topLevelMime is changed.
? oTopLevelMime:GetMime()

oPtMime:destroy()
oTopLevelMime:destroy()
oPtMime2:destroy()