Envio de email. ERROR

[emeritos]

Buenas Dilferos.

Tengo uyn programa que manda un mensaje de email a un correo determinado cuando realiza una accion. En Junio funcionaba, pero ahora cuando hemos empezado ha utilizarlo otra vez da un error al mandar el email.

El trozo de codigo que hace que lo envie es este:

Código Delphi [-]

                        DLLHandlelib := LoadLibrary('libeay32.dll');
                        DLLHandlessl := LoadLibrary('ssleay32.dll');


                        // Abrir Aulas
                        Taulas.Close;
                        Taulas.Active := True;
                        Taulas.First;
                        // Mandar mansage por email
                        mailMensaje.Clear;
                        mailMensaje.From.Address := 'xxxxxxxxxxxxx@gmail.com';
                        Etexto.Text := 'Incidencia --> ' +  Taulas['nombre'] + ' -- ' + DateToStr(MQcabecera['fecha']);
                        mailMensaje.Subject := Etexto.Text;
                        Etexto.Text := 'Con fecha: ' + DateToStr(MQcabecera['fecha']) + ' el aula ' + Taulas['nombre'] + ' ha causado una incidencia.';
                        mailMensaje.Body.SetText(Etexto.Lines.GetText);
                        mailMensaje.From.Name := 'Incidencia';
                        mailMensaje.Recipients.EMailAddresses := 'yyyyyyyyyyyyyyyy@hotmail.es';
                        indySMTP.Host := 'smtp.gmail.com';
                        indySMTP.Username := 'xxxxxxxxxxxxx@gmail.com';
                        indySMTP.Password := 'XXXXXXXXXX';
                        indySMTP.Port := 465;
                        indySMTP.AuthenticationType := atLogin;
                        indySMTP.IOHandler := IdSSLIOHandlerSocket1;
                        IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
                        IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmUnassigned;
                        indySMTP.Connect;
                        if indySMTP.Connected
                           Then
                              Begin
                                  indySMTP.Send(mailMensaje);
                                  indySMTP.Disconnect;
                              End;

                        Taulas.Close;

El error lo hace en la linea indySMTP.Send(mailMensaje);, es decir, cuando intenta enviarlo.
El error es muy largo pero dice algo asi
.
.
<hpps://accounts.google.com(signin/continue?.........
5.7.34 ....
5.7.34 ....
5.7.34 ....
5.7.34 then try again
5.7.34 Kearn more at
5.7.34 hpps://suppont.google.com(mail/answer/78757 ......



Gracias.

[Rocio90]

ME pasa lo mismo, es un tema de atenticación de Google/gmail. si encuentro la solución te lo posteo, aunque parece que el login lo hace bien

[Casimiro Notevi]

http://www.clubdelphi.com/foros/show...ail#post485063
http://www.clubdelphi.com/foros/show...ighlight=gmail
http://www.clubdelphi.com/foros/show...ighlight=gmail
http://www.clubdelphi.com/foros/show...ighlight=gmail
http://www.clubdelphi.com/foros/show...ighlight=gmail

[emeritos]

Me he dado cuenta que si en vez de poner esta linea:

indySMTP.Send(mailMensaje);

pongo esta otra

indySMTP.SendMsg(mailMensaje); o tambien indySMTP.SendMsg(mailMensaje, true);


No me sale error, se ejecuta la linea pero el mensaje no llega a su destino.

[Neftali [Germán.Estévez]]

Prueba con este cambio:

Código Delphi [-]
  IdSSLIOHandlerSocket1.SSLOptions.Method := sslvTLSv1;

Y rellenando FromAddres y FromText con la dirección de envío.

A parte de revisar los links que te han pasado.

[jhonny]

Además revisa el correo de envío, creo que gmail genera un correo para que autorices el envío de emails por medio de smtp desde tu cuenta de gmail.