Class T_MailNews (unit tcpip) |
Inherits from
TComponent
@\\\0000002301*) { Mail and News text components } (*@/// T_MailNews = class(TComponent)
constructor Create(Aowner:TComponent);
- @\\\0000000611*) (*@\\\0000000D01*) { Mail and News text components } (*@/// class t_mailnews(tcomponent) *) (*@/// constructor t_mailnews.
procedure action;
@\\\0000000603*) (*@/// procedure t_mailnews.
destructor Destroy;
@\\\0000000603*) (*@/// destructor t_mailnews.
procedure SetBody(Value: TStringList);
@\\\0000000503*) (*@/// procedure t_mailnews.
procedure SetHeader(Value: TStringList);
@\\\0000000603*) (*@/// procedure t_mailnews.
property Body : TStringList
property From : string
property Header : TStringList
property References : string
property ReplyTo : string
property Sender : string
property Subject : string
f_add_header : TStringlist;
f_body : TStringlist;
f_from : string;
f_message : TStringlist;
f_references : string;
f_replyto : string;
f_sender : string;
f_subject : string;
constructor Create(Aowner:TComponent);
@\\\0000000611*) (*@\\\0000000D01*) { Mail and News text components } (*@/// class t_mailnews(tcomponent) *) (*@/// constructor t_mailnews.Create(Aowner:TComponent);
procedure action;
@\\\0000000603*) (*@/// procedure t_mailnews.action;
destructor Destroy;
@\\\0000000603*) (*@/// destructor t_mailnews.Destroy;
procedure SetBody(Value: TStringList);
@\\\0000000503*) (*@/// procedure t_mailnews.SetBody(Value: TStringList);
procedure SetHeader(Value: TStringList);
@\\\0000000603*) (*@/// procedure t_mailnews.SetHeader(Value: TStringList);
property Body : TStringList
property From : string
property Header : TStringList
property References : string
property ReplyTo : string
property Sender : string
property Subject : string
f_add_header : TStringlist;
f_body : TStringlist;
f_from : string;
f_message : TStringlist;
f_references : string;
f_replyto : string;
f_sender : string;
f_subject : string;