indy9.0 老问题 ( 积分: 50 )

我按下面的提示修改完后,1、
找到procedure TIdSMTP.Send(AMsg: TIdMessage);这个函数将SendCmd('RSET');这行注销
2、IdMessageCoderMIME这个单元,将下面的常量IndyMIMEBoundary,IndyMultiPartAlternativeBoundary,IndyMultiPartRelatedBoundary改成你自己需要的就可以了。
为什么邮件发送程序还会提示bad sequence of commands呢?

procedure TFrmErrorReport.SendMail();
begin
btnsend.Enabled := False;
btnAbort.Enabled := False;
try
pbSend.Position := 10;
lblinfo.Caption := '配置发送信息......';
Application.ProcessMessages;
idsmtp.Disconnect;
idsmtp.Host := deCrypt(nmg_ClientConfig.SmtpMailA);
idsmtp.Username := deCrypt(nmg_ClientConfig.MailUsrN);
idsmtp.Password := deCrypt(nmg_ClientConfig.MailPsw);
idsmtp.AuthenticationType := atLogin;
pbSend.Position := 30;
lblinfo.Caption := '正在连接服务器......';
Application.ProcessMessages;
idsmtp.Connect(-1);
pbSend.Position := 50;
lblinfo.Caption := '初始化发送信息......';
Application.ProcessMessages;
idmsg.From.Name := deCrypt(nmg_ClientConfig.SendN);
idmsg.From.Address := deCrypt(nmg_ClientConfig.SendMailA);
idmsg.ContentType := 'text/html';
idmsg.CharSet := 'gb2312';
idmsg.ReplyTo.Clear;
idmsg.Subject := '客户端升级错误报告';
idmsg.Body.SetText(Pchar(TrimMail()));
idmsg.Recipients.EMailAddresses := deCrypt(nmg_ClientConfig.GetMailA);
pbSend.Position := 80;
lblinfo.Caption := '正在发送信息......';
Application.ProcessMessages;
idsmtp.Send(idmsg);
pbSend.Position := 100;
lblinfo.Caption := '错误报告发送成功！';
Self.Close;
except
pbSend.Position := 100;
lblinfo.Caption := '错误报告发送失败！';
btnsend.Enabled := True;
btnAbort.Enabled := True;

{ if MessageBox(Self.Handle ,'CopyEx Error !'+#13+#10+#13+#10+
'发送错误报告失败，重试请按"是"，'+#10+#13+#10+#13+'退出请按"否"！'
,'Error',MB_YESNO )= IDYES then
SendMail()
else
Self.Close; }
end;
end;

能否发一个具体的例子过来?请加我qq:85484058,谢谢

哎 ， 上面sendmail就是全部了 ，晕，我刚写的一个程序里用的，你先看看啊，自己动手！

调试通过了的吗

刚试用过了,还是出现以前那样的问题~

为什么没有人回答我呢?有没有人告诉我啊!

怎么这个问题问了这么久，还没有人回答我呢？我加分啊！

请各位大侠帮帮忙啊！如果分数多了，我可以加啊！

帮帮忙啊！

咋没有人解答呢?我给1000分啊!

分数没有那么多了,为什么就没有人帮我呢?