obj := CreateObject("smtp");
obj.UserName := 'username'; //邮箱账号
obj.Password := 'password'; //邮箱密码
obj.Host := 'smtp.tinysoft.com.cn'; //smtp地址
obj.port := 25; //端口
obj.connect();
try
  mailHost:='smtp.tinysoft.com.cn'; //邮件服务器地址
  mailSubject:="SendMailTest"; //邮件标题
  mailBody := "test"; //邮件内容
  mailSender := "username@tinysoft.com.cn"; //邮件发送人邮箱
  mailRecipients := " Recipients@qq.com"; //邮件接收人邮箱
  obj.QuickSend(mailHost,mailSubject,mailRecipients,mailSender,mailBody);
except
  echo '\r\n邮件错误信息',obj.LastCmdResult();
  return echo '\r\n邮件发送失败:',ExceptObject.errinfo;
end;
return 1;