Delphi DLL

Access Attached Message (Embedded Email)

How to access an email embedded within another email (i.e. an attached message). Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Email;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
email: HCkEmail;
numAttached: Integer;
email2: HCkEmail;

begin
success := False;

email := CkEmail_Create();

// Load an email from a .eml
success := CkEmail_LoadEml(email,'embeddedEmail.eml');
if (success = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

// Display how many attached emails are embedded within
// this one:
numAttached := CkEmail_getNumAttachedMessages(email);
Memo1.Lines.Add('numAttached = ' + IntToStr(numAttached));

// Get the 1st attached message.
email2 := CkEmail_Create();
success := CkEmail_GetAttachedEmail(email,0,email2);
if (success = True) then
  begin

    // Display the subject, From, and a header field...
    Memo1.Lines.Add(CkEmail__subject(email2));
    Memo1.Lines.Add(CkEmail__from(email2));
    Memo1.Lines.Add(CkEmail__getHeaderField(email2,'X-SOMETHING'));
  end;

CkEmail_Dispose(email);
CkEmail_Dispose(email2);

end;