PowerBuilder

Append Part to MIME

See more MIME Examples

Demonstrates the AppendPart method for adding sub-parts to MIME. PowerBuilder

integer li_rc
long li_Success
oleobject loo_PtMime
oleobject loo_TopLevelMime
oleobject loo_PtMime2

li_Success = 0

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

//  Create a text/plain part.
loo_PtMime = create oleobject
li_rc = loo_PtMime.ConnectToNewObject("Chilkat.Mime")
if li_rc < 0 then
    destroy loo_PtMime
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_PtMime.SetBodyFromPlainText("This is the plain text body")
Write-Debug loo_PtMime.GetMime()
Write-Debug "****"

//  The ptMime contains:
//  ---------------------------------------
//  	Content-Type: text/plain
//  	Content-Transfer-Encoding: 7bit
//  
//  	This is the plain text body
//  ---------------------------------------

//  Start with an empty MIME object...
loo_TopLevelMime = create oleobject
li_rc = loo_TopLevelMime.ConnectToNewObject("Chilkat.Mime")

//  Initialize it to a multipart Content-Type.  We'll use multipart/mixed.
loo_TopLevelMime.NewMultipartMixed()

//  Append the ptMime as a child.
loo_TopLevelMime.AppendPart(loo_PtMime)
Write-Debug loo_TopLevelMime.GetMime()
Write-Debug "****"

//  The topLevelMime contains:
//  --------------------------
//  	Content-Type: multipart/mixed; boundary="------------010907090104040508040404"
//  
//  	--------------010907090104040508040404
//  	Content-Type: text/plain
//  	Content-Transfer-Encoding: 7bit
//  
//  	This is the plain text body
//  	--------------010907090104040508040404--
//  

//  IMPORTANT: A copy of the MIME passed in AppendPart is appended.
//  Therefore, in this case, changing ptMime does not change the text/plain sub-part in topLevelMime.
//  For example:
loo_PtMime.SetBody("this is the new plain text body.")
//  topLevelMime is unchanged.
Write-Debug loo_TopLevelMime.GetMime()
Write-Debug "****"

//  To change the content in topLevelMime, we must get the text/plain part.
//  For example:

loo_PtMime2 = create oleobject
li_rc = loo_PtMime2.ConnectToNewObject("Chilkat.Mime")

loo_TopLevelMime.PartAt(0,loo_PtMime2)

loo_PtMime2.SetBody("this is the new plain text body.")
//  Now topLevelMime is changed.
Write-Debug loo_TopLevelMime.GetMime()


destroy loo_PtMime
destroy loo_TopLevelMime
destroy loo_PtMime2