[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.