Lazarus Pascal

Add Multiple To Recipients at Once

Demonstrates the Chilkat Email.AddMultipleTo method, which parses a comma-separated list of mailbox addresses and appends them all to the direct-recipient (To) list. Each entry may include a display name (e.g. Joe <joe@example.com>). This example adds three To recipients in a single call.

Background: The To header holds a message's primary recipients, and email allows any number of them as a comma-separated list. AddMultipleTo parses that standard syntax — accepting both bare addresses and named forms — so when your recipients arrive as one string (from a form field, database column, or config value) you can populate the whole To list in one step instead of calling AddTo per recipient.

Chilkat Lazarus Pascal Downloads

Download Chilkat for Lazarus Pascal

Lazarus Pascal

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Email;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  email: TEmail;

begin
  //  Demonstrates the AddMultipleTo method, which parses a comma-separated list of
  //  addresses and appends them all to the direct-recipient (To) list.

  email := TEmail.Create;
  email.Subject := 'Multiple To example';
  email.From := 'alice@example.com';

  //  Add several To recipients at once.  Each entry may include a display name.
  email.AddMultipleTo('Joe <joe@example.com>, jane@example.com, Bob <bob@example.com>');

  WriteLn('NumTo = ' + email.NumTo);


  email.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.