(PowerBuilder) Create multipart/alternative MIME

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

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

integer li_rc
integer li_Success
oleobject loo_Mime
oleobject loo_PtMime
oleobject loo_HtmlMime

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

// Start with an empty MIME object...
loo_Mime = create oleobject
// Use "Chilkat_9_5_0.Mime" for versions of Chilkat < 10.0.0
li_rc = loo_Mime.ConnectToNewObject("Chilkat.Mime")
if li_rc < 0 then
    destroy loo_Mime
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Initialize it as multipart/alternative.
loo_Mime.NewMultipartAlternative()

// Create a text/plain part.
loo_PtMime = create oleobject
// Use "Chilkat_9_5_0.Mime" for versions of Chilkat < 10.0.0
li_rc = loo_PtMime.ConnectToNewObject("Chilkat.Mime")

loo_PtMime.SetBodyFromPlainText("This is the plain text body.")
Write-Debug loo_PtMime.GetMime()
Write-Debug "****"

// 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.
loo_HtmlMime = create oleobject
// Use "Chilkat_9_5_0.Mime" for versions of Chilkat < 10.0.0
li_rc = loo_HtmlMime.ConnectToNewObject("Chilkat.Mime")

loo_HtmlMime.SetBodyFromHtml("<html><body><p>This is the <b>HTML body</b></p></body></html>")
Write-Debug loo_HtmlMime.GetMime()
Write-Debug "****"

// 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
loo_Mime.AppendPart(loo_PtMime)
loo_Mime.AppendPart(loo_HtmlMime)
Write-Debug loo_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--


destroy loo_Mime
destroy loo_PtMime
destroy loo_HtmlMime