Visual FoxPro

Append Part to MIME

See more MIME Examples

Demonstrates the AppendPart method for adding sub-parts to MIME. Visual FoxPro

LOCAL lnSuccess
LOCAL loPtMime
LOCAL loTopLevelMime
LOCAL loPtMime2

lnSuccess = 0

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

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

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

*  Start with an empty MIME object...
loTopLevelMime = CreateObject('Chilkat.Mime')

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

*  Append the ptMime as a child.
loTopLevelMime.AppendPart(loPtMime)
? loTopLevelMime.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:
loPtMime.SetBody("this is the new plain text body.")
*  topLevelMime is unchanged.
? loTopLevelMime.GetMime()
? "****"

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

loPtMime2 = CreateObject('Chilkat.Mime')
loTopLevelMime.PartAt(0,loPtMime2)

loPtMime2.SetBody("this is the new plain text body.")
*  Now topLevelMime is changed.
? loTopLevelMime.GetMime()

RELEASE loPtMime
RELEASE loTopLevelMime
RELEASE loPtMime2