obj:= CreateObject("smtp") ;

obj.UserName := 'username' ; //邮箱账号

obj.Password := 'password'; //邮箱密码

obj.Host := 'smtp.tinysoft.com.cn' ;  //smtp地址

obj.port:=25; //端口

obj.connect();

//设置mailmsg对象

msg := CreateObject("MailMsg");

msg.subject := "SendMailTest";    //邮件标题

msg.body := "test";      //邮件内容

msg.Sender := "username@tinysoft.com.cn";  //邮件发送人邮箱

msg.Recipients :=" Recipients @qq.com";//邮件接收人邮箱

try

  obj.send(msg);

except

  echo '\r\n邮件错误信息',obj.LastCmdResult();

  return echo '\r\n邮件发送失败:',ExceptObject.errinfo;

end;

return 1;