Delphi DLL

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

Download Chilkat for Delphi DLL

Delphi DLL

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

begin
success := False;

//  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 := CkEmail_Create();
CkEmail_putSubject(innerEmail,'Original message');
CkEmail_putFrom(innerEmail,'alice@example.com');
CkEmail_putBody(innerEmail,'This is the original message being forwarded.');

email := CkEmail_Create();
CkEmail_putSubject(email,'FW: Original message');
CkEmail_putFrom(email,'bob@example.com');
CkEmail_putBody(email,'See the attached original email.');

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

success := CkEmail_AttachEmail(email,innerEmail);
if (success = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

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

CkEmail_Dispose(innerEmail);
CkEmail_Dispose(email);