想写一个极为简单的EMAIL发送程序

[sztony]

procedure TForm1.Button1Click(Sender: TObject);
begin
idsmtp1.Host := 'smtp.sina.com.cn';

//基于安全问题,下面密码和用户名是假的,但我的程序里面是真实的
idsmtp1.Password := '12345';
idsmtp1.Username := 'ABCDEFG';

idmessage1.Subject := 'xxxxxxxxxx';
idmessage1.Body.Assign( memo1.Lines) ;

idsmtp1.Connect();
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;
end;

运行时候出现下列错误,:
"SMTP登陆出错误,新浪邮件系统增加了SMTP服务认证,从2001年2月28日起,只有新浪会员才能享受."

我该怎么办? 或者程序出现什么问题?但为何我的OUTLOOK可以用我的用户名称登陆而没问题?

[drift1981]

加上
idmessage1.From.Text :='xxx'; //发处信箱
idmessage1.Recipients.EMailAddresses := 'xxx';//目的信箱

既然加了认证,那也没办法,再换别的试试能不能发出去

[aiirii]

http://hubdog.csdn.net/Download/dlIndex.htm

[sztony]

另外,我还想增加一项功能,就是能发送附件的功能,程序该怎么做?

[drift1981]

发送附件的话,加一句
idmessage1.MessageParts.Clear;
TIdAttachment.Create(F_mailmsg.MessageParts, name);
name是你要发送的文件名,包括路径

[xh416]

delphi自带的例子有详细介绍！