PureBasic

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 PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkEmail.pb"

Procedure ChilkatExample()

    success.i = 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.
    innerEmail.i = CkEmail::ckCreate()
    If innerEmail.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::setCkSubject(innerEmail, "Embedded message")
    CkEmail::setCkFrom(innerEmail, "alice@example.com")
    CkEmail::ckAddTo(innerEmail,"Bob","bob@example.com")

    ;  Attach it to an outer email as a message/rfc822 part.
    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::setCkSubject(email, "Has an attached message")
    success = CkEmail::ckAttachEmail(email,innerEmail)
    If success = 0
        Debug CkEmail::ckLastErrorText(email)
        CkEmail::ckDispose(innerEmail)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ;  Get the "filename" attribute of the "Content-Disposition" header of the first
    ;  attached message (index 0).
    fname.s = CkEmail::ckGetAttachedMessageAttr(email,0,"Content-Disposition","filename")
    Debug "Attached message filename attribute: " + fname


    CkEmail::ckDispose(innerEmail)
    CkEmail::ckDispose(email)


    ProcedureReturn
EndProcedure