发送email如何认证(100分)

现在几乎所有的email都要认证，请问用delphi如何做到

发送的时候可以设置吧...

nmsmtp 做不到。找 internet direct.

使用Internet direct里的smtp控件，该控件支持认证。
网址：http://www.nevrona.com/indy
下面是使用其smtp控件的简单例子。

var
IdMsgSend: TIdMessage;
SMTP:Tidsmtp;

procedure TfrmMessageEditor.bbtnOkClick(Sender: TObject);
begin
//init idmsgsend; idmsgsend 指要发送的信的结构

SMTP.UserID := 'chenziyi;
SMTP.Password :='fsdalkklsadf';

{General setup}
SMTP.Host := 'smtp.263.net';
SMTP.Port := 25;
SMTP.Connect;
SMTP.Send(IdMsgSend); //在send方法里会调用Authenticate,也就是认证。
end;

多人接受答案了。

to chenziyi
为什么我用了你说的方法后，
仍然无法通过身份认证？
请问知道原因吗？
是不是除了已提到的要点，
还有什么注意事项？

to asleep
你已经用程序实现了吗？
能不能发给我看看呢？
请发往： cs.hs@263.net

谢谢啦！

我的程序运行后的错误为：
10061 : connection refused

希望大家不吝赐教，
谢谢了！