(Xojo Plugin) Append Part to MIME

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim success As Boolean

// Create a text/plain part.
Dim ptMime As New Chilkat.Mime
success = ptMime.SetBodyFromPlainText("This is the plain text body")
System.DebugLog(ptMime.GetMime())
System.DebugLog("****")

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

// Start with an empty MIME object...
Dim topLevelMime As New Chilkat.Mime

// Initialize it to a multipart Content-Type.  We'll use multipart/mixed.
success = topLevelMime.NewMultipartMixed()

// Append the ptMime as a child.
success = topLevelMime.AppendPart(ptMime)
System.DebugLog(topLevelMime.GetMime())
System.DebugLog("****")

// 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:
ptMime.SetBody "this is the new plain text body."
// topLevelMime is unchanged.
System.DebugLog(topLevelMime.GetMime())
System.DebugLog("****")

// To change the content in topLevelMime, we must get the text/plain part.
// For example:
Dim ptMime2 As Chilkat.Mime
ptMime2 = topLevelMime.GetPart(0)
ptMime2.SetBody "this is the new plain text body."

// Now topLevelMime is changed.
System.DebugLog(topLevelMime.GetMime())