Delphi DLL

Email Recipients - AddTo, AddCC, AddBcc, AddMultipleTo, AddMultipleCC, AddMultipleBcc

This example demonstrates the usage of AddTo, AddCC, AddBcc, AddMultipleTo, AddMultipleCC, and AddMultipleBcc. 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
success: Boolean;
email: HCkEmail;

begin
success := False;

// An email can have any number of To, CC, or Bcc recipients.
email := CkEmail_Create();

// One recipient per AddTo, AddCC, or AddBcc call may be added:
// The 1st argument is the friendly name, the 2nd argument
// is the email address.
success := CkEmail_AddTo(email,'Chilkat Support','support@chilkatsoft.com');
success := CkEmail_AddTo(email,'Person 1','person1@chilkatsoft.com');
success := CkEmail_AddTo(email,'Person 2','person2@chilkatsoft.com');
success := CkEmail_AddTo(email,'Person 3','person3@chilkatsoft.com');

// This email now has 4 "To" recipients.

// Now add some CC recipients:
// Note: the friendly name may be empty if desired...
success := CkEmail_AddCC(email,'Person 4','person4@chilkatsoft.com');
success := CkEmail_AddCC(email,'','person5@chilkatsoft.com');
success := CkEmail_AddCC(email,'Person 6','person6@chilkatsoft.com');

// Now the email has 7 total recipients (3 "To" and 4 "CC")

// Now add some Bcc recipients:
success := CkEmail_AddBcc(email,'','person7@chilkatsoft.com');
success := CkEmail_AddBcc(email,'Person 8','person8@chilkatsoft.com');

// Clear all recipients via ClearTo, ClearCC, and ClearBcc:
CkEmail_ClearTo(email);
CkEmail_ClearCC(email);
CkEmail_ClearBcc(email);

// The email is now back to 0 recipients...

// Add recipients just as before, but this time use
// AddMultipleTo, AddMultipleCC, and AddMultipleBcc.
// These methods accept a comma-separated list of 
// email addresses.  For example:

success := CkEmail_AddMultipleTo(email,'Chilkat Support <support@chilkatsoft.com>, Person 1 <person1@chilkatsoft.com>, Person 2 <person2@chilkatsoft.com>, Person 3 <person3@chilkatsoft.com>');

success := CkEmail_AddMultipleCC(email,'Person 4 <person4@chilkatsoft.com>, person5@chilkatsoft.com, Person 6 <person6@chilkatsoft.com>');

success := CkEmail_AddMultipleBcc(email,'person7@chilkatsoft.com, Person 8 <person8@chilkatsoft.com>');

CkEmail_putBody(email,'this is a test');
CkEmail_putSubject(email,'this is a test');

// Display the MIME:
Memo1.Lines.Add(CkEmail__getMime(email));

CkEmail_Dispose(email);

end;