我正在使用Delphi 11开发Windows应用程序,使用SMTP发送邮件。但是自上周以来,我一直收到错误提示 -“用户名和密码不被接受”。而之前同样的代码是正常工作的。请提供一些解决此问题的方案。
with IdSMTP1 Do
begin
IOHandler := IdSSLIOHandlerSocketOpenSSL1;
UseTLS := utUseImplicitTLS;
Host := SMTP;
Username := FromUser;
Password := FromPassword;
Port := StrToIntDef(PortNumber, 0);
IdMessage1.From.Address := IdSMTP1.Username; // sender
IdMessage1.From.Name := 'Subject';
try
Connect;
try
Send(IdMessage1);
Result := True;
finally
Disconnect;
end;
except
on E:Exception do
begin
end;
end;
end;