盒子论坛 v2.1

之前一直好好的，不知道为啥，昨天突然出现不能发送的问题了，代码也没错啊
procedure TForm1.Button1Click(Sender: TObject);
var idsmtp1:Tidsmtp;idmessage1:Tidmessage;
begin
  try
  idsmtp1:=Tidsmtp.Create(nil);
  idmessage1:=Tidmessage.Create(nil);
  idSMTP1.Host:= 'smtp.163.com'; //邮件发送服务器
  idsmtp1.Port :=25;
  IdSMTP1.AuthType :=satDefault ; //服务器需验证
  idSMTP1.Username  := 'zhouyifan2007';   //邮箱登录帐号
  idSMTP1.Password := 'la1';  //邮箱登录密码
  idMessage1.From.Address := 'zhouyifan2007@163.com';  //发件人
  idMessage1.Recipients.EMailAddresses := 'zhouyifan2007@163.com'; //收件人
  idMessage1.Subject := 'hello';    //邮件主题
//
//  idsmtp1.Authenticate;
  try
    idsmtp1.Connect ;
//    idSMTP1.Authenticate;
//    idSMTP1.Send(idMessage1);
  except
    Application.MessageBox('推送失败，请稍后再试。', 'form1', MB_OK +
      MB_ICONSTOP);
    idSMTP1.Disconnect;
    Exit;
  end;
  finally
  idmessage1.free;
  idsmtp1.free;
end;
end;

有那个兄弟知道吗？我用的是XE 版本
----------------------------------------------
-

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2019/2/16 10:44:04

1楼：

我关掉了except的代码，
弹出了这个错误对话框： user has no permission

用户没有授权？这个是163服务器端的问题吗？在线等急
----------------------------------------------
-

作者：

pwhll (渭水阳)	★☆☆☆☆	-
	盒子活跃会员

2019/2/16 10:45:37

2楼：

最近的确有问题，偶尔能成功大部分时间报2019-02-16 10:46:15 : Timeout error occured，我用的是CIS组件
----------------------------------------------
-

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2019/2/16 11:22:11

3楼：

我换了个21cn的邮箱，就可以了...
----------------------------------------------
-

信息

登陆以后才能回复