obj:= CreateObject("smtp") ;

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

obj.connect();

obj.disconnect();

return 1;