Access Attached Message (Embedded Email)

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

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMAILLib2_TLB,
    OleCtrls;

...

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

begin
email := CoChilkatEmail2.Create();

//  Load an email from a .eml

success := email.LoadEml('embeddedEmail.eml');
if (success <> 1) then
  begin
    ShowMessage(email.LastErrorText);

  end;

//  Display how many attached emails are embedded within
//  this one:

numAttached := email.NumAttachedMessages;
ShowMessage(IntToStr(numAttached));

//  Get the 1st attached message.

email2 := email.GetAttachedMessage(0);
if (not (email2 = nil )) then
  begin

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