Delphi DLL

Send Email with Multiple Reply-To Addresses

See more SMTP Examples

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.

Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
mailman: HCkMailMan;
email: HCkEmail;
sbMime: HCkStringBuilder;
replyToAddrs: PWideChar;

begin
success := False;

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

mailman := CkMailMan_Create();

CkMailMan_putSmtpHost(mailman,'smtp.my_mail_server.com');
CkMailMan_putSmtpUsername(mailman,'myUsername');
CkMailMan_putSmtpPassword(mailman,'myPassword');
CkMailMan_putSmtpPort(mailman,465);
CkMailMan_putSmtpSsl(mailman,True);

// Create a new email object
email := CkEmail_Create();

CkEmail_putSubject(email,'This is a test');
CkEmail_putBody(email,'This is a test');
CkEmail_putFrom(email,'Joe <joe@example.com>');
success := CkEmail_AddTo(email,'Mary','mary@example2.com');

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

// Get the email as MIME.
sbMime := CkStringBuilder_Create();
CkMailMan_RenderToMimeSb(mailman,email,sbMime);

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

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

// 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 := CkMailMan_SendMime(mailman,'joe@example.com','mary@example2.com',CkStringBuilder__getAsString(sbMime));
if (success = False) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    Exit;
  end;

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

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

CkMailMan_Dispose(mailman);
CkEmail_Dispose(email);
CkStringBuilder_Dispose(sbMime);

end;