Visual FoxPro

Create multipart/alternative MIME

See more MIME Examples

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

LOCAL lnSuccess
LOCAL loMime
LOCAL loPtMime
LOCAL loHtmlMime

lnSuccess = 0

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

*  Start with an empty MIME object...
loMime = CreateObject('Chilkat.Mime')

*  Initialize it as multipart/alternative.
loMime.NewMultipartAlternative()

*  Create a text/plain part.
loPtMime = CreateObject('Chilkat.Mime')
loPtMime.SetBodyFromPlainText("This is the plain text body.")
? loPtMime.GetMime()
? "****"

*  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.
loHtmlMime = CreateObject('Chilkat.Mime')
loHtmlMime.SetBodyFromHtml("<html><body><p>This is the <b>HTML body</b></p></body></html>")
? loHtmlMime.GetMime()
? "****"

*  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
loMime.AppendPart(loPtMime)
loMime.AppendPart(loHtmlMime)
? loMime.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--

RELEASE loMime
RELEASE loPtMime
RELEASE loHtmlMime