obj:= CreateObject("smtp") ;

obj.Host := 'smtp.tinysoft.com.cn' ;

obj.connect();

obj.DisconnectNotifyPeer();

return 1;