TMessHeader

type TMessHeader = class(TObject)

protected

  function ParsePriority();

  function DecodeHeader(); virtual;

public

  constructor Create; virtual;

  destructor Destroy; override;

  procedure Clear;

  procedure EncodeHeaders(); virtual;

  procedure DecodeHeaders();

  function FindHeader();

  procedure FindHeaderList();

published

  property From: String; [rw]

  property ToList: TStringList; [r]

  property CCList: TStringList; [r]

  property Subject: String; [rw]

  property Organization: String; [rw]

  property CustomHeaders: TStringList; [r]

  property Date: TDateTime; [rw]

  property XMailer: String; [rw]

  property ReplyTo: String; [rw]

  property MessageID: String; [rw]

  property Priority: TMessPriority; [rw]

  property CharsetCode: TMimeChar; [rw]

end;

TMessHeader

TObject