邮件发送问题

Question

procedure TForm1.Button2Click(Sender: TObject);
var idmessage1:TIdMessage;
begin
  idmessage1:=tidmessage.Create(application);
  IdSMTP1.Host:='smtp.126.com';
  IdSMTP1.Port:=25;
  IdSMTP1.UserId:='****';
  IdSMTP1.Password:='****';
  IdMessage1.From.Address:='***@126.com;
  IdMessage1.Recipients.EMailAddresses:='[email protected]';
  IdMessage1.Subject:='Test';
  IdMessage1.Body.Text:=memo1.Text;
  IdSMTP1.AuthenticationType:=atLogin;
  IdSMTP1.Connect;
  IdSMTP1.Send(IdMessage1);
  idmessage1.Free;
end;IdSMTP1.Connect;成功
IdSMTP1.Send(IdMessage1);出错 503 bad sequence of commands
怎么回事? 高手来

Answer 1

http://community.csdn.net/Expert/topic/4394/4394014.xml?temp=.4990045