Xojo Plugin
Create multipart/alternative MIME

Demonstrates how to create a multipart/alternative MIME structure using the NewMultipartAlternative method.
Chilkat Xojo Plugin Downloads

Xojo Plugin
Dim success As Boolean
success = False

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

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

// Initialize it as multipart/alternative.
success = mime.NewMultipartAlternative()

// 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 text/plain part looks like this:

// 	Content-Type: text/plain
// 	Content-Transfer-Encoding: 7bit
// 
// 	This is the plain text body.

// Create a text/HTML part.
Dim htmlMime As New Chilkat.Mime
success = htmlMime.SetBodyFromHtml("<html><body><p>This is the <b>HTML body</b></p></body></html>")
System.DebugLog(htmlMime.GetMime())
System.DebugLog("****")

// The text/html part looks like this:

// 	Content-Type: text/html
// 	Content-Transfer-Encoding: 7bit
// 
// 	<html><body><p>This is the <b>HTML body</b></p></body></html>

// Add both parts as children of the multipart/alternative
success = mime.AppendPart(ptMime)
success = mime.AppendPart(htmlMime)
System.DebugLog(mime.GetMime())

// This the result.  The boundary string was automatically generaetd.

// 	Content-Type: multipart/alternative; boundary="------------080803090906030708030908"
// 
// 	--------------080803090906030708030908
// 	Content-Type: text/plain
// 	Content-Transfer-Encoding: 7bit
// 
// 	This is the plain text body.
// 	--------------080803090906030708030908
// 	Content-Type: text/html
// 	Content-Transfer-Encoding: 7bit
// 
// 	<html><body><p>This is the <b>HTML body</b></p></body></html>
// 	--------------080803090906030708030908--