(Delphi ActiveX) Send Email with Multiple Reply-To Addresses

Send email with multiple repy-to addresses.

Note: Some mail servers will remove the extra email addresses from the Reply-To header. Even if you provide multiple reply-to addresses, the email may arrive with only the 1st.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan;
email: TChilkatEmail;
success: Integer;
sbMime: TChilkatStringBuilder;
replyToAddrs: WideString;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

mailman := TChilkatMailMan.Create(Self);

mailman.SmtpHost := 'smtp.my_mail_server.com';
mailman.SmtpUsername := 'myUsername';
mailman.SmtpPassword := 'myPassword';
mailman.SmtpPort := 465;
mailman.SmtpSsl := 1;

// Create a new email object
email := TChilkatEmail.Create(Self);

email.Subject := 'This is a test';
email.Body := 'This is a test';
email.From := 'Joe <joe@example.com>';
success := email.AddTo('Mary','mary@example2.com');

// Specify a single reply-to address, which will get replace with a list of addresses..
email.ReplyTo := 'placeholder@example.com';

// Get the email as MIME.
sbMime := TChilkatStringBuilder.Create(Self);
mailman.RenderToMimeSb(email.ControlInterface,sbMime.ControlInterface);

// Update the Reply-To MIME header with a list of email addresses.
replyToAddrs := 'joe@example.com, mike@example.com';
sbMime.ReplaceAllBetween('Reply-To: ',#13#10,replyToAddrs,0);

// Examine the MIME to be sent:
Memo1.Lines.Add(sbMime.GetAsString());

// Here's the MIME:

// MIME-Version: 1.0
// Date: Tue, 03 Sep 2024 08:18:12 -0500
// Message-ID: <D892B0E563A7A13B1F499530DE21529714EA479A@SLICE>
// Content-Type: text/plain; charset=us-ascii; format=flowed
// Content-Transfer-Encoding: 7bit
// X-Priority: 3 (Normal)
// Subject: This is a test
// From: Joe <joe@example.com>
// To: Mary <mary@example2.com>
// Reply-To: joe@example.com, mike@example.com
// 
// This is a test

// ---------
// Send the MIME...
success := mailman.SendMime('joe@example.com','mary@example2.com',sbMime.GetAsString());
if (success = 0) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

success := mailman.CloseSmtpConnection();
if (success = 0) then
  begin
    Memo1.Lines.Add('Connection to SMTP server not closed cleanly.');
  end;

Memo1.Lines.Add('Mail Sent!');
end;