这个问题把我给弄晕了,你不妨尝试一下

Question

我用Indy的TIDSMTP和TIDMessage发送电子邮件,但是出现了bad secquence of command错误!我的代码是这样的:
procedure TfrmEmail.SpeedButton7Click(Sender: TObject);
var Msg: TIDMessage;
begin
    Msg:=TIDMessage.Create(SMTP);
    Msg.Clear;
    Msg.Subject:=edtSubject.Text;  //subject 主题
    Msg.Body.Assign(memoBody.Lines); //body 内容
    Msg.From.Text:=Trim(edtFrom.Text);  //寄件人
    Msg.Recipients.EMailAddresses:=Trim(edtMailto.Text); //收信人
    SMTP.Host:='smtp.163.com';
    SMTP.AuthenticationType:=atLogin;
    SMTP.Username:='xaguobo';
    SMTP.Password:='*******'  ;//这里我输入的是我的163邮箱的登陆密码
    SMTP.Port:=25;
    try
      SMTP.Connect(-1); // 我跟踪连接服务器成功
      try
        SMTP.Send(Msg);
        ShowMessage('邮件已发送');
      finally
        SMTP.Disconnect;
      end;
  except
    on e: exception do
      ShowMessage('Mail 寄送失敗:' + e.Message);  end;end;请个位大虾指教!

Answer 1

一直在使用这个发送，很正常——除了邮件服务器拒绝的之外。
Indy 10