用DELPHI6的indy控件组里的TIsSMTP发送不了邮件? 用DELPHI6的indy控件组里的TIsSMTP发送不了邮件?提示: 503 bad sequence of commands请问有什么问题? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 试试升级indy如果还不行的话可能是验证设置有否 代码如下:begin with IdMsgSend do begin Body.Assign(Memo1.Lines); From.Text := UserEmail; Recipients.EMailAddresses := edtTo.Text; { To: header } Subject := edtSubject.Text; { Subject: header } Priority := TIdMessagePriority(cboPriority.ItemIndex); { Message Priority } CCList.EMailAddresses := edtCC.Text; {CC} BccList.EMailAddresses := edtBCC.Text; {BBC} if chkReturnReciept.Checked then begin {We set the recipient to the From E-Mail address } ReceiptRecipient.Text := From.Text; end else begin {indicate that there is no receipt recipiant} ReceiptRecipient.Text := ''; end; end; {authentication settings} {case SmtpAuthType of 0: SMTP.AuthenticationType := atNone; 1: SMTP.AuthenticationType := atLogin; end; } SMTP.AuthenticationType := atLogin; {Simple Login} SMTP.UserID := SmtpServerUser; SMTP.Password := SmtpServerPassword; {General setup} SMTP.Host := SmtpServerName; SMTP.Port := SmtpServerPort; {now we send the message} SMTP.Connect; try //SMTP.Authenticate; SMTP.Send(IdMsgSend); finally SMTP.Disconnect; end;end;这段代码就是DELPHI自带那个DEMO的代码,请问是怎么回事,为什么发不了呢? {authentication settings} {case SmtpAuthType of 0: SMTP.AuthenticationType := atNone; 1: SMTP.AuthenticationType := atLogin; end; } SMTP.AuthenticationType := atLogin; {Simple Login} 看看这个是否和服务器要求的一致 163用INDY有问题。可以考虑用fastnet. fastnet 试过了,也发不了。indy 没有解决的方法吗? 需要打开//SMTP.Authenticate; 这句。[email protected]不需要这句也可以,但[email protected]必须要这句 如果打开//SMTP.Authenticate; 这句,则提示 "550用户被锁定"不管QQ还是163的邮箱都有这个提示. 163 你得先用foxmail 先测试下 .早期的163是开通了POP3功能的. 从06好像之后的就只能是WEB接收了. 163去年又开通了对pop3的功能,因为我用outlook都可以发到163的。 图片存储的问题 用stringgrid表格来显示数据?不知道如何定位任意一行? 求delphi声音采集程序 column 希望哪位大虾给个面向对象编程的例子(数据库)。在线等 主从表的新增问题!急救啊! 一个关于邮件收发的问题 大家看看这个软件怎样?来者有分 我想将在DBGrid中选中的记录,用报表显示出来应该怎么做? 谁有《Delphi 5开发人员指南》要处理,卖给我! string 不是多线程安全的?? 关于arFiltered 怎么用
如果还不行的话可能是验证设置有否
begin
with IdMsgSend do
begin
Body.Assign(Memo1.Lines);
From.Text := UserEmail;
Recipients.EMailAddresses := edtTo.Text; { To: header }
Subject := edtSubject.Text; { Subject: header }
Priority := TIdMessagePriority(cboPriority.ItemIndex); { Message Priority }
CCList.EMailAddresses := edtCC.Text; {CC}
BccList.EMailAddresses := edtBCC.Text; {BBC}
if chkReturnReciept.Checked then
begin {We set the recipient to the From E-Mail address }
ReceiptRecipient.Text := From.Text;
end
else
begin {indicate that there is no receipt recipiant}
ReceiptRecipient.Text := '';
end;
end; {authentication settings}
{case SmtpAuthType of
0: SMTP.AuthenticationType := atNone;
1: SMTP.AuthenticationType := atLogin;
end;
}
SMTP.AuthenticationType := atLogin; {Simple Login} SMTP.UserID := SmtpServerUser;
SMTP.Password := SmtpServerPassword; {General setup}
SMTP.Host := SmtpServerName;
SMTP.Port := SmtpServerPort; {now we send the message}
SMTP.Connect;
try
//SMTP.Authenticate;
SMTP.Send(IdMsgSend);
finally
SMTP.Disconnect;
end;
end;这段代码就是DELPHI自带那个DEMO的代码,请问是怎么回事,为什么发不了呢?
{case SmtpAuthType of
0: SMTP.AuthenticationType := atNone;
1: SMTP.AuthenticationType := atLogin;
end;
}
SMTP.AuthenticationType := atLogin; {Simple Login}
看看这个是否和服务器要求的一致
可以考虑用fastnet.
indy 没有解决的方法吗?
[email protected]不需要这句也可以,但[email protected]必须要这句
则提示 "550用户被锁定"
不管QQ还是163的邮箱都有这个提示.