Delphi ActiveX

Set the X-Priority Header of an Email

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

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
email: TChilkatEmail;

begin
// The AddHeaderField can be called to add any header field.
// If the header field already exists, AddHeaderField replaces it.
email := TChilkatEmail.Create(Self);
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;