原来的发送邮件代码可以发送邮件。现在怎么突然不能发送了。高手帮助看看(94分)

procedure TForm1.Button1Click(Sender: TObject);
begin
with IdMessage1 do
begin
Clear;
Body.Assign(Memo1.Lines);//内容
From.Text := FromText.Text ;//发件人
Recipients.EMailAddresses := EMailAddEdit.text;//收件人
Subject := SubjectEdit.Text ;//主题
if Recet.Checked then //回执
ReceiptRecipient.Text := From.Text
else ReceiptRecipient.Text := '';
end;
TIdAttachment.Create(IdMessage1.MessageParts, Edit1.Text);//附件
if not AuthenType.Checked then //认证
IdSMTP1.AuthenticationType := atNone
else begin
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Username := Username.Text ;
IdSMTP1.Password := Password.Text ;
end;
IdSMTP1.Host := Host.Text ;//发送服务器
IdSMTP1.Port := 25;//端口
try
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
ShowMessage('E-Mail 成功发出');
finally
IdSMTP1.Disconnect;
end;
except
ShowMessage('E-Mail 发送失敗');
end;
end;

查看服务器端返回的错误是什么.现在有些邮件服务器不让用软件发送.只能通信它的网站来发送

现在好多邮件服务器为防止伪造邮件,要求 From.Text与认证的Username.Text 一致,否则无法发送.

兄弟，还是用asp+数据库吧,用自己的东西，管他们（email server）什么xxxx的事啊