TIpMessage

type TIpMessage = class(TIpMimeEntity)

protected

  MsgStream: TIpAnsiTextStream;

  FBCC: TStringList;

  FCC: TStringList;

  FDate: string;

  FFrom: string;

  FInReplyTo: string;

  FKeywords: string;

  FFollowupTo: string;

  FControl: string;

  FMessageID: string;

  FMessageTag: Integer;

  FNewsgroups: TStringList;

  FNNTPPostingHost: string;

  FOrganization: string;

  FPath: TStringList;

  FPostingHost: string;

  FReceived: TStringList;

  FRecipients: TStringList;

  FReferences: TStringList;

  FReplyTo: string;

  FReturnPath: string;

  FSender: string;

  FSubject: string;

  FUserFields: TStringList;

  FHeaders: TIpHeaderCollection;

  FDispositionNotify: string;

  procedure CheckAllHeaders;

  procedure CheckHeaderType();

  procedure Clear; override;

  procedure NewMessageStream;

  function GetPosition;

  function GetSize;

  procedure SetPosition();

  procedure SetBCC();

  procedure SetCC();

  procedure SetNewsgroups();

  procedure SetPath();

  procedure SetReceived();

  procedure SetRecipients();

  procedure SetReferences();

  procedure SetUserFields();

public

  constructor CreateMessage; virtual;

  destructor Destroy; override;

  procedure AddDefaultAttachment();

  procedure AddDefaultAttachmentAs();

  procedure Assign(); override;

  function AtEndOfStream;

  procedure DecodeMessage; virtual;

  procedure EncodeMessage; virtual;

  function GetBodyHtml();

  function GetBodyPlain();

  procedure LoadFromFile();

  procedure LoadFromStream();

  procedure NewMessage;

  function ReadLine;

  function ReadLineCRLF;

  procedure SaveToFile();

  procedure SaveToStream();

  procedure SetHeaders();

  procedure WriteLine();

  property BCC: TStringList; [rw]

  property CC: TStringList; [rw]

  property Control: string; [rw]

  property Date: string; [rw]

  property DispositionNotification: string; [rw]

  property FollowupTo: string; [rw]

  property From: string; [rw]

  property Headers: TIpHeaderCollection; [rw]

  property InReplyTo: string; [rw]

  property Keywords: string; [rw]

  property MessageID: string; [rw]

  property MessageStream: TIpAnsiTextStream; [r]

  property MessageTag: Integer; [rw]

  property Newsgroups: TStringList; [rw]

  property NNTPPostingHost: string; [rw]

  property Organization: string; [rw]

  property Path: TStringList; [rw]

  property Position: LongInt; [rw]

  property PostingHost: string; [rw]

  property Received: TStringList; [rw]

  property Recipients: TStringList; [rw]

  property References: TStringlist; [rw]

  property ReplyTo: string; [rw]

  property ReturnPath: string; [rw]

  property Sender: string; [rw]

  property Size: LongInt; [r]

  property Subject: string; [rw]

  property UserFields: TStringList; [rw]

end;

TIpMessage

TIpMimeEntity

TObject