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

Question

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可以用我的用户名称登陆而没问题?

Answer 1

加上
idmessage1.From.Text :='xxx';     //发处信箱
idmessage1.Recipients.EMailAddresses := 'xxx';//目的信箱既然加了认证,那也没办法,再换别的试试能不能发出去

Answer 2

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

Answer 3

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

Answer 4

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