PowerBuilder

Access Attached Message (Embedded Email)

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

integer li_rc
integer li_Success
oleobject loo_Email
integer li_NumAttached
oleobject loo_Email2

li_Success = 0

loo_Email = create oleobject
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 = 0 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 = create oleobject
li_rc = loo_Email2.ConnectToNewObject("Chilkat.Email")

li_Success = loo_Email.GetAttachedEmail(0,loo_Email2)
if li_Success = 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
destroy loo_Email2