TMimeMess

type TMimeMess = class(TObject)

public

  constructor Create;

  constructor CreateAltHeaders();

  destructor Destroy; override;

  procedure Clear;

  function AddPart();

  function AddPartMultipart();

  function AddPartText();

  function AddPartHTML();

  function AddPartTextFromFile();

  function AddPartHTMLFromFile();

  function AddPartBinary();

  function AddPartBinaryFromFile();

  function AddPartHTMLBinary();

  function AddPartHTMLBinaryFromFile();

  function AddPartMess();

  function AddPartMessFromFile();

  procedure EncodeMessage;

  procedure DecodeMessage;

published

  property MessagePart: TMimePart; [r]

  property Lines: TStringList; [r]

  property Header: TMessHeader; [r]

end;

TMimeMess

TObject