Delphi ActiveX

Create a Reply Email

Demonstrates the Chilkat Email.ToReply method, which generates a reply email with updated header and body fields so it can be sent as a reply. Attachments are excluded from the reply, but attached messages are included. The source email is not modified. This example creates a reply and prints its MIME.

Background: Replying is more than swapping sender and recipient: the To is set from the original's reply address, the subject gets an Re: prefix, the original text is quoted, and threading headers (In-Reply-To, References) are added so mail clients group the conversation. ToReply assembles all of that, leaving a message you can edit and send. Dropping attachments is the usual reply convention — you rarely echo the sender's files back to them.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
email: TChilkatEmail;
reply: TChilkatEmail;

begin
success := 0;

//  Demonstrates the ToReply method, which generates a reply email with updated header and
//  body fields ready to send as a reply.  Attachments are excluded from the reply, but
//  attached messages are included.  The source email is not modified.

email := TChilkatEmail.Create(Self);
email.Subject := 'Project update';
email.From := 'alice@example.com';
email.AddTo('Bob','bob@example.com');
email.Body := 'Here is the project update.';

//  Create a reply email based on this message.
reply := TChilkatEmail.Create(Self);

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

//  The reply is addressed and quoted, ready to edit and send.
Memo1.Lines.Add(reply.GetMime());