(PowerBuilder) Load MIME Object from Email Object

Demonstrates how to load a Chilkat Mime object from a Chilkat Email object. (Copies the email into a Mime object.)

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Email
integer li_Success
oleobject loo_SbMime
oleobject loo_Mime

loo_Email = create oleobject
// Use "Chilkat_9_5_0.Email" for versions of Chilkat < 10.0.0
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Email.LoadEml("qa_data/eml/sample.eml")

// Write the full MIME of the email to a StringBuilder.
loo_SbMime = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbMime.ConnectToNewObject("Chilkat.StringBuilder")

loo_Email.GetMimeSb(loo_SbMime)

// Load the MIME object from the StringBuilder
loo_Mime = create oleobject
// Use "Chilkat_9_5_0.Mime" for versions of Chilkat < 10.0.0
li_rc = loo_Mime.ConnectToNewObject("Chilkat.Mime")

li_Success = loo_Mime.LoadMimeSb(loo_SbMime)

Write-Debug loo_Mime.GetMime()


destroy loo_Email
destroy loo_SbMime
destroy loo_Mime