邮件发送 ( 积分: 50 )

procedure TfrmMain.Button2Click(Sender: TObject);
begin
//需验证的邮箱
If chbLogin.Checked then
begin
idsmtp1.Authen
ticationType := atLogin;
idsmtp1.UserName := edtUserName.Text;
idsmtp1.PassWord := edtPassWord.Text;
End else
idsmtp1.Authen
ticationType := atNone;
idsmtp1.Host := 'smtp.163.com';
idsmtp1.Port := 25;
idsmtp1.Connect;
try
IdMessage1.From.Name := edtFrom.Text;
//发件地址
IdMessage1.Recipients.EMailAddresses := edtTo.Text;
//收件邮箱
IdMessage1.Subject := edtSubject.Text;
IdMessage1.Body.Assign(mmContent.Lines);
try
idsmtp1.Send(IdMessage1);
showMessage('OK');
Except
showmessage('Failure');
end;
Finally
idsmtp1.Disconnect;
end;
end;

为什么提示发送失败,调试时错误提示是:bad sequence of Command.不知哪里出错?

我已经注掉了这句:
Values['X-Library'] := gsIdProductName + ' ' + gsIdVersion;
{do not localize}

怎么没人帮顶一下?
我是用163的邮箱发给163的邮箱.

问题已经解决, 给自己加分?

那么多人看,怎么没人顶一下?
富翁们都不用indy做邮件收发程序?有什么好的解决方案不如在这里一起分享一下?

哎，我才没有好久发了一篇，都没有人帮我解决啊！

问题已解决!