B4X
Create multipart/alternative MIME

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

B4X
Dim success As Boolean = 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 ChilkatMime
mime.Initialize

'  Initialize it as multipart/alternative.
mime.NewMultipartAlternative

'  Create a text/plain part.
Dim ptMime As ChilkatMime
ptMime.Initialize
ptMime.SetBodyFromPlainText("This is the plain text body.")
Log(ptMime.GetMime)
Log("****")

'  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 ChilkatMime
htmlMime.Initialize
htmlMime.SetBodyFromHtml("<html><body><p>This is the <b>HTML body</b></p></body></html>")
Log(htmlMime.GetMime)
Log("****")

'  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
mime.AppendPart(ptMime)
mime.AppendPart(htmlMime)
Log(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--