Pascal (Lazarus/Delphi)

Getting TO / CC Email Recipients

Demonstrates how to examine the TO and CC recipients of an email.

Note: BCC recipients are generally NOT found in the email's MIME. "BCC" is a "Blind Carbon Copy", which means that the TO and CC recipients of the email should not be able to see the BCC recipients. If the BCC email addresses were found in the MIME header, then they would no longer be "blind" because nothing would prevent the other recipients from seeing the list of BCC recipients.

To understand how BCC recipients receive an email, I recommend reading this blog post: SMTP Protocol in a Nutshell. The BCC recipients are passed to the SMTP server in “RCPT TO” commands.

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
  success: Boolean;
  email: TEmail;
  i: Integer;
  numTo: Integer;
  numCC: Integer;

begin
  success := False;

  //  An email can have any number of To, CC, or Bcc recipients.
  email := TEmail.Create;

  success := email.LoadEml('sample.eml');
  if (success <> True) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  //  It doesn't matter if the email object was loaded from a .eml file,
  //  or if it was downloaded from a POP3 or IMAP server. 
  //  The methods and properties for examining the TO and CC
  //  recipients are the same.

  //  The number of TO recipients is found in the NumTo property
  numTo := email.NumTo;

  //  Iterate over each TO recipient
  if (numTo > 0) then
    begin
      for i := 0 to numTo - 1 do
        begin
          WriteLn('TO Friendly Name and Address: ' + email.GetTo(i));
          WriteLn('TO Address: ' + email.GetToAddr(i));
          WriteLn('TO Friendly Name: ' + email.GetToName(i));
          WriteLn('---');
        end;

    end;

  //  The number of CC recipients is found in the NumCC property
  numCC := email.NumCC;

  //  Iterate over each CC recipient
  if (numCC > 0) then
    begin
      for i := 0 to numCC - 1 do
        begin
          WriteLn('CC Friendly Name and Address: ' + email.GetCC(i));
          WriteLn('CC Address: ' + email.GetCcAddr(i));
          WriteLn('CC Friendly Name: ' + email.GetCcName(i));
          WriteLn('---');
        end;

    end;


  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.