(PowerBuilder) Access Attached Message (Embedded Email)

How to access an email embedded within another email (i.e. an attached message).

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

integer li_rc
oleobject loo_Email
integer li_Success
integer li_NumAttached
oleobject loo_Email2

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

// Load an email from a .eml
li_Success = loo_Email.LoadEml("embeddedEmail.eml")
if li_Success <> 1 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_Email
    return
end if

// Display how many attached emails are embedded within
// this one:
li_NumAttached = loo_Email.NumAttachedMessages
Write-Debug "numAttached = " + string(li_NumAttached)

// Get the 1st attached message.

loo_Email2 = loo_Email.GetAttachedMessage(0)
if loo_Email.LastMethodSuccess = 1 then

    // Display the subject, From, and a header field...
    Write-Debug loo_Email2.Subject
    Write-Debug loo_Email2.From
    Write-Debug loo_Email2.GetHeaderField("X-SOMETHING")
end if



destroy loo_Email