Pascal (Lazarus/Delphi)

Set the Sender Email Address

Demonstrates the Chilkat Email.FromAddress property, which is the email address of the sender. Changing this property updates the address portion of the MIME From header while preserving the sender name when possible. This example sets the sender name and address separately, then reads back the combined From header.

Background: A From header has two parts: the display name (e.g. John Smith) and the email address (e.g. john.smith@example.com). Only the address is used to actually route the message; the display name is cosmetic. Chilkat lets you manipulate each part independently through FromAddress and FromName, or the whole thing at once through From.

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 Email.FromAddress property (the email address of the sender).
  //  Setting it updates the address portion of the From header while preserving
  //  the sender name when possible.

  email := TEmail.Create;

  email.FromName := 'John Smith';
  email.FromAddress := 'john.smith@example.com';

  WriteLn('FromAddress = ' + email.FromAddress);
  WriteLn('From = ' + email.From);


  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.