你对SMTP有研究吗?(50分)

  • 主题发起人 主题发起人 我来也
  • 开始时间 开始时间

我来也

Unregistered / Unconfirmed
GUEST, unregistred user!
这是我发信时的消息片断:
235 Authentication successful
RSET
250 Ok
MAIL FROM:
553 You are not authorized to send mail as >, authentication is required
QUIT
221 Bye
问题是:为什么明明验证通过了,还告诉我需要验证。望指点一二。
 
我的验证代码是这样的:
procedure TfrMain.smSendConnect(Sender: TObject);
var
sUserID:string;
sPassword:string;
begin
sbBar.Panels[0].Text:=smSend.Status;
if smSend.ReplyNumber = 250 then
sbBar.Panels[0].Text:=smSend.Transaction('AUTH LOGIN'); //开始认证
if smSend.ReplyNumber =334 then //返回值为334,让你输入用BASE64编码后的用户名
begin
// 编码
sUserID:=EncodeBase64(leUserID.Text);
sbBar.Panels[0].Text:=smSend.Transaction(sUserID);// 用户名
end;
if smSend.ReplyNumber =334 then // 返回值为334,让你输入用BASE64编码后的用户密码
begin
// 编码
sPassword:=EncodeBase64(lePassWord.Text);
sbBar.Panels[0].Text:=smSend.Transaction(sPassword); //密码为
end;
if smSend.ReplyNumber =235 then
begin
sbBar.Panels[0].Text:='successful';
AuthSucc:=true;
end;
end;
 
后退
顶部