Class T_SMTP (unit tcpip) |
Inherits from
T_TcpIp
@\\\0000000103*) { The Mail and News protocols } (*@/// T_SMTP = class(T_TcpIp) // RFC 821
constructor Create(Aowner:TComponent);
- @\\\0000000305*) { remove jobs } { get status } (*@\\\0000000501*) { The Mail and News protocols } (*@/// class t_smtp(t_tcpip) *) (*@/// constructor t_smtp.
procedure action;
@\\\0000000501*) (*@/// procedure t_smtp.
destructor Destroy;
@\\\0000000501*) (*@/// destructor t_smtp.
procedure response;
@\\\0000000A17*) (*@/// procedure t_smtp.
procedure SetBody(Value: TStringList);
@\\\0000000801*) (*@/// procedure t_smtp.
procedure SetRecipients(Value: TStringList);
@\\\0000000603*) (*@/// procedure t_smtp.
property Hostname : string
property Message : TStringList
property Recipients : TStringlist
property Sender : string
event OnTrace :
f_body : tstringlist;
f_host : string;
f_receipts : tstringlist;
f_status_nr : integer;
f_status_txt : string;
f_user : string;
constructor Create(Aowner:TComponent);
@\\\0000000305*) { remove jobs } { get status } (*@\\\0000000501*) { The Mail and News protocols } (*@/// class t_smtp(t_tcpip) *) (*@/// constructor t_smtp.Create(Aowner:TComponent);
procedure action;
@\\\0000000501*) (*@/// procedure t_smtp.action;
destructor Destroy;
@\\\0000000501*) (*@/// destructor t_smtp.Destroy;
procedure response;
@\\\0000000A17*) (*@/// procedure t_smtp.response;
procedure SetBody(Value: TStringList);
@\\\0000000801*) (*@/// procedure t_smtp.SetBody(Value: TStringList);
procedure SetRecipients(Value: TStringList);
@\\\0000000603*) (*@/// procedure t_smtp.SetRecipients(Value: TStringList);
property Hostname : string
property Message : TStringList
property Recipients : TStringlist
property Sender : string
event OnTrace :
f_body : tstringlist;
f_host : string;
f_receipts : tstringlist;
f_status_nr : integer;
f_status_txt : string;
f_user : string;