Delphi ActiveX

Make a Copy of an Email

Demonstrates the Chilkat Email.MakeCopy method, which copies the entire state of this email into another Email object — message content, recipients, headers, body representations, attachments, and related items. This example copies an email and reads a couple of fields from the copy.

Background: A deep copy gives you an independent duplicate: changes to one object do not affect the other. This is handy for template-and-tweak workflows — build a base message once, copy it per recipient, then vary only the recipient or a few fields — without risk of one send's edits bleeding into the next.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
email: TChilkatEmail;
copy: TChilkatEmail;

begin
success := 0;

//  Demonstrates the MakeCopy method, which copies the entire state of this email into
//  another Email object -- message content, recipients, headers, bodies, attachments, and
//  related items.

email := TChilkatEmail.Create(Self);
email.Subject := 'Original';
email.From := 'alice@example.com';
email.AddTo('Bob','bob@example.com');
email.Body := 'Original body.';

//  Copy the entire email into a new Email object.
copy := TChilkatEmail.Create(Self);

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

Memo1.Lines.Add('Copy subject: ' + copy.Subject);
Memo1.Lines.Add('Copy NumTo: ' + IntToStr(copy.NumTo));