(Delphi) Send High Priority Email (SMTP, X-Priority header)

Demonstrates how to send high-priorty email (or lower priority email) by setting the X-Priority header field.

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMAILLib2_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin
//  The mailman object is used for sending and receiving email.
mailman := TChilkatMailMan2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := mailman.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

//  Set the SMTP server (obviously, use your SMTP server, not chilkatsoft.com)
mailman.SmtpHost := 'smtp.chilkatsoft.com';

//  Set the SMTP login/password (if required)
mailman.SmtpUsername := 'myUsername';
mailman.SmtpPassword := 'myPassword';

//  Create a new email object
email := CoChilkatEmail2.Create();

email.Subject := 'This is a test';
email.Body := 'This is a test';
email.From := 'Chilkat Support <support@chilkatsoft.com>';
email.AddTo('Chilkat Admin','admin@chilkatsoft.com');
//  To add more recipients, call AddTo, AddCC, or AddBcc once per recipient.

//  To send high-priority email,
//  add the X-Priority header field with the value "1"
//  to indicate highest-priority.
//  A value of "3" is normal, which is the same as not setting
//  the X-Priority header at all, and "5" is the lowest.
//  "2" and "4" are in-betweens.

//  Microsoft Outlook might add the following headers when
//  sending high-priority email.

//  X-Priority: 1 (Highest)
//  X-MSMail-Priority: High
//  Importance: High

//  The X-Priority header alone is enough to make the email high-priority.

email.AddHeaderField('X-Priority','1');

//  Call SendEmail to connect to the SMTP server and send.
//  The connection (i.e. session) to the SMTP server remains
//  open so that subsequent SendEmail calls may use the
//  same connection.
success := mailman.SendEmail(email As CHILKATMAILLib2_TLB.IChilkatEmail2);
if (success <> 1) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

success := mailman.CloseSmtpConnection();
if (success <> 1) then
  begin
    ShowMessage('Connection to SMTP server not closed cleanly.');
  end;

ShowMessage('Mail Sent!');
end;