
Lib_smtp2 -     ( )

---------------------------------------------------------------------------------------------------------------

account(string login, string passwd) -        
    login -  
    passwd - 

auth_mode(int i)
    0 -    
    1 -   (   ,   account)

integer send(string smtp, int port, string from, string to, string subject, string msg) -  
    smtp -   SMTP 
    port -  SMTP  ( 25,    )
    from -    (      FROM     )
    to -   
    subject -  () 
    msg -   
 1 -    0 - - 

---------------------------------------------------------------------------------------------------------------

   :

Program SMTP2test;
Uses smtp2;
Var i: integer;
Begin
	smtp2.account('lib_test', '123456');
	smtp2.auth_mode(1);
	i:=smtp2.send('smtp.mail.ru', 2525, 'lib_test@mail.ru', 'odd-coder@yandex.ru', 'Test', 'Hi there! !');
End.

---------------------------------------------------------------------------------------------------------------

2009 (c) odd
   WTK 2.5.2
