TIDSMTP发送邮件时的奇怪提示!
TIDSMTP发送邮件时的奇怪提示! Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiNetwork/html/delphi_20061214202002126.html
我用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;
请个位大虾指教!
http://www.delphi2007.net/DelphiNetwork/html/delphi_20061214202002126.html
我用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;
请个位大虾指教!