Delphi DLL

Get an Attached Message as an Email Object

Demonstrates the Chilkat Email.GetAttachedEmail method, which copies the Nth embedded message/rfc822 MIME part into another Email object. The index is zero-based (valid values run from 0 through NumAttachedMessages - 1). This example attaches an email and then extracts it back into its own object.

Background: When a message forwards another email as an attachment, that nested message is a complete email in its own right. GetAttachedEmail turns it back into a fully navigable Email object so you can read its subject, sender, body, and even its own attachments — essential for processing forwarded mail, or for tools that unpack reported spam/phishing to examine the original.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
innerEmail: HCkEmail;
email: HCkEmail;
attached: HCkEmail;

begin
success := False;

//  Demonstrates the GetAttachedEmail method, which copies the Nth embedded message/rfc822
//  MIME part into another Email object.  The index is zero-based.

//  Build an inner email and attach it to an outer email.
innerEmail := CkEmail_Create();
CkEmail_putSubject(innerEmail,'Embedded message');
CkEmail_putFrom(innerEmail,'alice@example.com');
CkEmail_putBody(innerEmail,'This is the embedded message.');

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;

//  Copy the first embedded message (index 0) into its own Email object.
attached := CkEmail_Create();
success := CkEmail_GetAttachedEmail(email,0,attached);
if (success = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

Memo1.Lines.Add('Attached email subject: ' + CkEmail__subject(attached));
Memo1.Lines.Add('Attached email from: ' + CkEmail__from(attached));

CkEmail_Dispose(innerEmail);
CkEmail_Dispose(email);
CkEmail_Dispose(attached);