关于邮件发送的问题 ( 积分: 50 )

以下是我写的一个邮件发送的小程序,可在调试时会发生错误而无法发送,错误提示大概是无法通过验证之类的,邮箱的名称和密码肯定是正确的,请问会是什么原因
IdSMTP.Host := 'smtp.' + '163.com';
IdSMTP.Username := 'sundykaoqing';
IdSMTP.Password := 'sundy******';
with Msg do
begin
Body.Add(CardNumber + ' 2007年9月12日 11:30');
From.Address := 'sundykaoqing@163.com';
Recipients.EMailAddresses := 'sundykaoqing@163.com';
subject := ' 2007年9月12日 11:30';
priority := mphigh;
end;
try
IdSMTP.Connect(50000);
IdSMTP.Send(Msg);
PN_Main.Caption:=CardNumber+'成功!';
except
PN_Main.Caption:=CardNumber+'失败!请检查网络';
IdSMTP.Disconnect;
ED_CardNumber.Text:='';
exit;
end;
IdSMTP.Disconnect;

DELPHI本身IdSMTP控件做的发送，很多邮箱服务器都阻止的，你可以修改DELPHI本身INDE代码

怎么改,有办法吗?从哪方面入手啊

有些网站的服务器不支持的。你用新浪的邮箱服务器试试。我试过了有很多网站不支持的，就是新浪支持。smtp.sina.com