TMessHeader

type TMessHeader = class(TObject)

protected

  function ParsePriority();

  function DecodeHeader(); virtual;

public

  constructor Create; virtual;

  destructor Destroy; override;

  procedure Clear; virtual;

  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