Pascal (Lazarus/Delphi)

Count the Bcc Recipients of an Email

Demonstrates the read-only Chilkat Email.NumBcc property, which is the number of blind carbon-copy (Bcc) recipients. Bcc recipient indexes are zero-based and can be inspected with GetBcc, GetBccAddr, and GetBccName. This example adds two Bcc recipients and prints the count.

Background: Email has three recipient lists: To (primary), Cc (carbon copy), and Bcc (blind carbon copy). The key difference is visibility: To and Cc addresses appear in the delivered message's headers for everyone to see, but Bcc recipients are hidden — the Bcc header is stripped before delivery so no recipient can tell who else was blind-copied.

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.NumBcc property, which is the number of
  //  blind carbon-copy (Bcc) recipients.  Bcc indexes are zero-based.

  email := TEmail.Create;

  email.AddBcc('Joe','joe@example.com');
  email.AddBcc('Jane','jane@example.com');

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


  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.