发送邮件问题？

Question

帮忙看看是什么错误错误信息 ：Project Project1.exe raised exception class eidprotocolreplyerror with message'from <[email protected]>,message blocked you are not authorzed to send mail,authenrication is requited'.代码如下：连接 主机：
procedure TForm1.Button1Click(Sender: TObject);
begin
  idsmtp1.Host:=trim(edit1.Text); //主机
  idsmtp1.Username:=trim(edit2.Text);//用户名
  idsmtp1.Password:=trim(edit3.Text);//密码
  idsmtp1.Port:=25;//端口
try
  idsmtp1.Connect(3000);
except
  idsmtp1.Disconnect
end;
end;发送 邮件：
procedure TForm1.Button2Click(Sender: TObject);
begin
with idmessage1 do
begin
  Body.Assign(memo1.Lines); //邮件正文
  From.Address := Trim(edit4.Text); //发件人地址
  Recipients.EMailAddresses := Trim(edit5.Text); //收件人地址
  Subject := edit6.Text; //邮件主题
end;
try
  idsmtp1.Send(idmessage1);
except
  idsmtp1.Disconnect
end;
end;

Answer 1

你的邮件服务器对发送邮件需要认证