(VB.NET UWP/WinRT) Create multipart/alternative MIME

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

Chilkat Universal Windows Platform (UWP) / WinRT Downloads

Chilkat for the Universal Windows Platform (UWP)

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

Dim success As Boolean

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

' Initialize it as multipart/alternative.
mime.NewMultipartAlternative()


' Create a text/plain part.
Dim ptMime As New Chilkat.Mime
ptMime.SetBodyFromPlainText("This is the plain text body.")
Debug.WriteLine(ptMime.GetMime())
Debug.WriteLine("****")

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

' 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)
Debug.WriteLine(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--