Class TSendMailForm (unit Sndmail)

Inherits from

TForm

Constructors



Functions

procedure FormShow(Sender: TObject);

Public declarations

procedure SendMail1Done(Sender: TObject);


procedure SendMail1MailError(Sender: TObject; error: SendMailError; addinfo: string);


procedure SendMail1MailInfo(Sender: TObject; info: SendMailInfo;addinfo: String);


procedure WMSendMsg(var Msg: TMsg);


Properties

Events

Variables

SendMail1 : SendMail;


Status : TLabel;


StatusBar : TPanel;


StatusBk : TPanel;


Stop : TButton;


done : LongInt;


todo : LongInt;



Constructors


Functions


procedure FormShow(Sender: TObject);

Public declarations


procedure SendMail1Done(Sender: TObject);


procedure SendMail1MailError(Sender: TObject; error: SendMailError; addinfo: string);


procedure SendMail1MailInfo(Sender: TObject; info: SendMailInfo;addinfo: String);


procedure WMSendMsg(var Msg: TMsg);


Properties


Events


Variables


SendMail1 : SendMail;


Status : TLabel;


StatusBar : TPanel;


StatusBk : TPanel;


Stop : TButton;


done : LongInt;


todo : LongInt;