Delphi DLL

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 Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
innerEmail: HCkEmail;
email: HCkEmail;
fname: PWideChar;

begin
success := False;

//  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 := CkEmail_Create();
CkEmail_putSubject(innerEmail,'Embedded message');
CkEmail_putFrom(innerEmail,'alice@example.com');
CkEmail_AddTo(innerEmail,'Bob','bob@example.com');

//  Attach it to an outer email as a message/rfc822 part.
email := CkEmail_Create();
CkEmail_putSubject(email,'Has an attached message');
success := CkEmail_AttachEmail(email,innerEmail);
if (success = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

//  Get the "filename" attribute of the "Content-Disposition" header of the first
//  attached message (index 0).
fname := CkEmail__getAttachedMessageAttr(email,0,'Content-Disposition','filename');
Memo1.Lines.Add('Attached message filename attribute: ' + fname);

CkEmail_Dispose(innerEmail);
CkEmail_Dispose(email);