Delphi DLL

Explaining the Email FromName, FromAddress, and From Properties

See more Email Object Examples

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

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

...

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

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 := CkEmail_Create();
CkEmail_putSubject(email1,'test');
CkEmail_putBody(email1,'test');

CkEmail_putFromName(email1,'Joe Sample');
CkEmail_putFromAddress(email1,'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: ' + CkEmail__from(email1));
Memo1.Lines.Add('--------------------------------------------------');

// Examine the MIME of the email:
Memo1.Lines.Add(CkEmail__getMime(email1));
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>
// 
// 	test

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

email2 := CkEmail_Create();
CkEmail_putFrom(email2,'Joe Sample <joe.sample@example.com>');

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

Memo1.Lines.Add(CkEmail__getMime(email2));

CkEmail_Dispose(email1);
CkEmail_Dispose(email2);

end;