(Visual FoxPro) Append Part to MIME

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

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

LOCAL lnSuccess
LOCAL loPtMime
LOCAL loTopLevelMime
LOCAL loPtMime2

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

* Create a text/plain part.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Mime')
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...
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Mime')
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 = loTopLevelMime.GetPart(0)
loPtMime2.SetBody("this is the new plain text body.")
RELEASE loPtMime2
* Now topLevelMime is changed.
? loTopLevelMime.GetMime()

RELEASE loPtMime
RELEASE loTopLevelMime