Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loInnerEmail
LOCAL loEmail
LOCAL lcFname

lnSuccess = 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.
loInnerEmail = CreateObject('Chilkat.Email')
loInnerEmail.Subject = "Embedded message"
loInnerEmail.From = "alice@example.com"
loInnerEmail.AddTo("Bob","bob@example.com")

*  Attach it to an outer email as a message/rfc822 part.
loEmail = CreateObject('Chilkat.Email')
loEmail.Subject = "Has an attached message"
lnSuccess = loEmail.AttachEmail(loInnerEmail)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loInnerEmail
    RELEASE loEmail
    CANCEL
ENDIF

*  Get the "filename" attribute of the "Content-Disposition" header of the first
*  attached message (index 0).
lcFname = loEmail.GetAttachedMessageAttr(0,"Content-Disposition","filename")
? "Attached message filename attribute: " + lcFname

RELEASE loInnerEmail
RELEASE loEmail