请问用IdMessage1发邮件，如何解决安全验证问题？在smtp.163.com 发不成功，在sohu上没有问题。(20分)

procedure Tmainfrom.BitBtn1Click(Sender: TObject);
begin
IdSMTP1.Username :='xho'; //服务器上的用户名
IdSMTP1.Password :='140'; //服务器上的密码
IdSMTP1.Host :='smtp.163.com'; //服务器SMTP地址
IdSMTP1.Port :=25; //服务器端口
IdSMTP1.Connect(-1); //建立连接

end;

procedure Tmainfrom.BitBtn2Click(Sender: TObject);

begin

IdMessage1.Body.Add( ' 邮件正文 ' ); //邮件正文件内容
IdMessage1.From.address :='xho@163.com'; //发件人地址
IdMessage1.Recipients.EMailAddresses :='xho@163.com'; //收件人地址，这里改为你的EMAIL地址
IdMessage1.Subject:='标题' ; //邮件标题
IdMessage1.Priority := mphigh; //优先级，mphigh为最高级。
IdSMTP1.Send(IdMessage1); //发送邮件



end;

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3359545

将TIdSMTP.Send函数里面的SendCmd('RSET');这行注销就可以了

IdSmtp1.Connect;
if senddata.IdSMTP1.AuthSchemesSupported.IndexOf('LOGIN')>-1 then
begin
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Authenticate;
end;