Pascal (Lazarus/Delphi)

Add a To Recipient to an Email

Demonstrates the Chilkat Email.AddTo method, which adds a single direct (To) recipient. The first argument is the friendly display name and the second is the email address. This example adds one To recipient and prints the resulting count.

Background: The To recipients are a message's primary audience — the people it is directly addressed to. Each recipient is stored as a display name plus an email address, which together render in the header as Bob <bob@example.com>. Call AddTo once per recipient, or use AddMultipleTo to add several from a single comma-separated string.

Chilkat Pascal (Lazarus/Delphi) Downloads

Download Chilkat for Pascal (Lazarus/Delphi)

Pascal (Lazarus/Delphi)

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 AddTo method, which adds a single direct (To) recipient.
  //  The 1st argument is the friendly (display) name, and the 2nd is the email address.

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

  email.AddTo('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.