(Delphi DLL) Set the X-Priority Header of an Email

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

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX 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
email: HCkEmail;

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

CkEmail_AddHeaderField(email,'X-Priority','1 (High)');

CkEmail_AddHeaderField(email,'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:

CkEmail_AddHeaderField(email,'X-Priority','1');

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

CkEmail_Dispose(email);

end;