Set the X-Priority Header of an Email

Demonstrates how to set the X-Priority header field of an email.

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
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin
//  The AddHeaderField can be called to add any header field.
//  If the header field already exists, AddHeaderField replaces it.
email := CoChilkatEmail2.Create();
email.AddHeaderField('X-Priority','3 (Normal)');

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

email.AddHeaderField('X-Priority','5 (Low)');

//  The X-Priority value ranges from 1 to 5, with 1 being
//  high priority, 3 is normal, and 5 is low.
//  You may set X-Priority to the number alone:

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

//  Including extra text, such as (High), should not
//  affect how the header is interpreted.
email.AddHeaderField('X-Priority','1 (High)');
end;