PowerBuilder

Get a Header Attribute of an Attached Message

Demonstrates the Chilkat Email.GetAttachedMessageAttr method, which returns a header-field attribute value for the Nth attached (embedded) email. The first argument is the zero-based attached-message index, the second is the header field name, and the third is the attribute name. This example attaches an email and reads the filename attribute of its Content-Disposition header.

Background: MIME header fields can carry named attributes (parameters) after the main value — for example Content-Disposition: attachment; filename="report.eml", where filename is an attribute. Rather than parsing the raw header yourself, this method extracts a single named attribute from a chosen header of a specific embedded message, which is convenient when a message forwards other emails as nested message/rfc822 parts.

Chilkat PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_InnerEmail
oleobject loo_Email
string ls_Fname

li_Success = 0

//  Demonstrates the GetAttachedMessageAttr method, which returns a header-field attribute
//  value for the Nth attached (embedded) email.  The first argument is the zero-based
//  attached-message index, the second is the header field name, and the third is the attribute name.

//  Build an inner email to attach.
loo_InnerEmail = create oleobject
li_rc = loo_InnerEmail.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_InnerEmail
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_InnerEmail.Subject = "Embedded message"
loo_InnerEmail.From = "alice@example.com"
loo_InnerEmail.AddTo("Bob","bob@example.com")

//  Attach it to an outer email as a message/rfc822 part.
loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

loo_Email.Subject = "Has an attached message"
li_Success = loo_Email.AttachEmail(loo_InnerEmail)
if li_Success = 0 then
    Write-Debug loo_Email.LastErrorText
    destroy loo_InnerEmail
    destroy loo_Email
    return
end if

//  Get the "filename" attribute of the "Content-Disposition" header of the first
//  attached message (index 0).
ls_Fname = loo_Email.GetAttachedMessageAttr(0,"Content-Disposition","filename")
Write-Debug "Attached message filename attribute: " + ls_Fname


destroy loo_InnerEmail
destroy loo_Email