Pascal (Lazarus/Delphi)

Count the To Recipients of an Email

Demonstrates the read-only Chilkat Email.NumTo property, which is the number of direct "To" recipients. To-recipient indexes are zero-based and can be inspected with GetTo, GetToAddr, and GetToName. This example adds three To recipients and prints the count.

Background: The To header lists the message's primary recipients — the people the email is directly addressed to and expected to act on it. A single email can have any number of To addresses, and each is stored as a display name plus an email address. Together with NumCC and NumBcc, this property lets you inspect the full recipient set of a message.

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 read-only Email.NumTo property, which is the number of direct
  //  "To" recipients.  To-recipient indexes are zero-based.

  email := TEmail.Create;

  email.AddTo('Joe','joe@example.com');
  email.AddTo('Jane','jane@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.