(Delphi ActiveX) Explaining the Email FromName, FromAddress, and From Properties

This example explains the email object's FromName, FromAddress, and From properties.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
email1: TChilkatEmail;
email2: TChilkatEmail;

begin
// The email's FROM name and address can be set in several ways.
// It can include an optional friendly name (which is just a description),
// and it must include an address.

// For example:
email1 := TChilkatEmail.Create(Self);
email1.Subject := 'test';
email1.Body := 'test';

email1.FromName := 'Joe Sample';
email1.FromAddress := 'joe.sample@example.com';

// the From property contains both the FromName and FromAddress
// This produces the following output:
// From: "Joe Sample" <joe.sample@example.com>
Memo1.Lines.Add('From: ' + email1.From);
Memo1.Lines.Add('--------------------------------------------------');

// Examine the MIME of the email:
Memo1.Lines.Add(email1.GetMime());
Memo1.Lines.Add('--------------------------------------------------');

// Output is:

// 	MIME-Version: 1.0
// 	Date: Wed, 16 Nov 2016 12:32:13 -0600
// 	Message-ID: <02B461C6D12FA6686C3151A649ED8D5BBFBE0721@CHILKAT13>
// 	Content-Type: text/plain
// 	Content-Transfer-Encoding: 7bit
// 	X-Priority: 3 (Normal)
// 	Subject: test
// 	From: "Joe Sample" <joe.sample@example.com>
// 	CKX-Bounce-Address: joe.sample@example.com
// 
// 	test

// --------------------------------------------
// Alternatively, the From property can be set, and this 
// implicitly sets the FromName and FromAddress properties.

email2 := TChilkatEmail.Create(Self);
email2.From := 'Joe Sample <joe.sample@example.com>';

Memo1.Lines.Add('FromName: ' + email2.FromName);
Memo1.Lines.Add('FromAddress: ' + email2.FromAddress);
Memo1.Lines.Add('--------------------------------------------------');

Memo1.Lines.Add(email2.GetMime());
end;