Como enviar Gmail con las nuevas limitaciones de Google

[adrall]

Buenos dias,

Parece que Google va a limitar el acceso a lo que llaman "aplicaciones menos seguras" a partir del 30 de Mayo próximo, con lo que parece que no se podran enviar correos usando smtp.gmail.com desde Delphi. Teneis alguna información al respecto, o de como solucionar esta situación ???

Muchas gracias

[chenech]

Por lo que leí en Google, se desactivará por defecto ese día el acceso a aplicaciones no seguras pero puede volver a la configuración y volver a activarla, aunque no lo recomienda, entiendo que seguirá funcionando si se activa de nuevo esa opción en la configuración de la cuenta.
Yo he comprobado que se me siguen enviando los mail desde GMail, estos días, incluyendo hoy, uso el puerto 465 y se envía sin problema.
Te adjunto el código en C++, si por aquí hay alguien que lo pueda convertir en Delphi, ya que yo no me entero mucho de Pascal.

	IdSMTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
	IdSMTP1->UseTLS = utUseImplicitTLS;
	IdSMTP1->Host = _D("smtp.gmail.com");
	IdSMTP1->Port = 465;
	IdSMTP1->Username = _D("Usuario@gmail.com");
	IdSMTP1->Password = _D("password");
	IdSMTP1->AuthType = satDefault;
	std::auto_ptr<TIdMessage> IdMessage1(new TIdMessage(NULL));
	IdMessage1->Priority = mpHigh;
	IdMessage1->Recipients->Add()->Address = "destinatario@maildeprueba.com";
	IdMessage1->Subject = "Asunto";
	IdMessage1->Encoding = meMIME;
	IdMessage1->ContentType = _D("multipart/mixed");
	IdMessage1->CharSet = _D("UTF-8");
	IdMessage1->From->Address = _D("Usuario@gmail.com");
	IdMessage1->From->Name = "Usario que envia";
	TIdText *text = new TIdText(IdMessage1->MessageParts, NULL);
	text->Body->Text = "Cuerpo del mensaje";
	text->ContentType = _D("text/plain");
	text->CharSet = _D("utf-8");
	IdSMTP1->Connect();
	IdSMTP1->Send(IdMessage1.get());
	IdSMTP1->Disconnect();

[adrall]

Si, a mi por ahora me funciona correctamente, veremos que pasa a partir del dia 30 pués, según entendí, va a desaparecer la opción 'Activar aplicaciones menos seguras' y de ahí mi preocupación.

Muchas gracias por tu respuesta.

P.D.

El código és practicamente calcado al de Delphi.

[hugobenitez]

Cual seria la alternativa que podrian usar si es que sucede ese limite apartir del 30 de mayo 2022? Alguien podria dar una idea para ayudarnos? Gracias

[adrall]

Mirate estos enlaces

https://en.delphipraxis.net/topic/19...h-20-via-indy/

https://github.com/geoffsmith82/GmailAuthSMTP

Yo he estado trabajando con la demo de Github y funciona perfectamente pero aun no he conseguido implementarlo en un proyecto mio.

Saludos

[Zento]

Hay dos hilos tratando el mismo asunto, me parece. No tengo permisos para enlazar, así que pongo el mismo texto:
Dos clientes que envían vía Gmail mediante SMTP han dejado de poder hoy. Única solución por ahora, activar 2FA y crear una contraseña específica de aplicación. Pero me parece que esto es pan para hoy y hambre para mañana y tendremos que acabar implementando OAuth2.