Delphi ActiveX

Attach an Email to Another Email

Demonstrates the Chilkat Email.AttachEmail method, which attaches a copy of another email to this email object. The attached email is encapsulated in a message/rfc822 subpart. Because a copy is attached, later changes to the source email do not affect the embedded message. This example attaches one email to another.

Background: "Forward as attachment" produces exactly this structure: the original message is embedded whole as a message/rfc822 part rather than quoted into the body. This preserves the original's headers and formatting intact, which matters for forwarding to a mailbox that will re-parse it, or for reporting spam/phishing with the original evidence attached. Such parts are counted by NumAttachedMessages.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
innerEmail: TChilkatEmail;
email: TChilkatEmail;

begin
success := 0;

//  Demonstrates the AttachEmail method, which attaches a copy of another email to this email
//  object.  The attached email is encapsulated in a message/rfc822 subpart.

innerEmail := TChilkatEmail.Create(Self);
innerEmail.Subject := 'Original message';
innerEmail.From := 'alice@example.com';
innerEmail.Body := 'This is the original message being forwarded.';

email := TChilkatEmail.Create(Self);
email.Subject := 'FW: Original message';
email.From := 'bob@example.com';
email.Body := 'See the attached original email.';

//  Attach a copy of the inner email as a message/rfc822 part.

success := email.AttachEmail(innerEmail.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('NumAttachedMessages = ' + IntToStr(email.NumAttachedMessages));