Envio de correo con Indy 10 / Delphi 7
 

No puedo usar la opcion de Busqueda del Foro para verificar si ya hay algun post de esto.... de antemano una disculpa si ya se ha tratado el tema
Estoy tratando de enviar correos desde mi aplicacion de Delphi 7 (cosa que ya habia logrado anteriormente), pero ahora estoy obteniendo un error que no me da mucha informacion para corregirlo....
el codigo es:

Código Delphi [-]
     ListBox2.Items.clear;
     eMessage.Body.Assign(Etexto.Lines);
     eMessage.From.Text := Ede.text;
     eMessage.Recipients.Clear;
     x:= epara.text;
     If Ansipos(';',x) > 0 Then
     begin

          While Ansipos(';',x) > 0 Do
          Begin
               eMessage.Recipients.Add.Address:=Copy(x,1,Ansipos(';',x)-1);
               x:=Copy(x,Ansipos(';',x)+1,999);
          End;          { while }
          eMessage.Recipients.Add.Address:=x;
     end
     else
         eMessage.Recipients.Add.Address:=Epara.Text;

     eMessage.Subject := easunto.Text;

     IF Efile.FileName <> '' then TIdAttachmentFile.Create(eMessage.MessageParts,Efile.FileName);

     Emessage.Priority := TidmessagePriority(mpHighest);
     if Gauth='N' then
          SMTP.AuthType := atNone
     Else
          SMTP.AuthType := atDefault;

     SMTP.Username := Gcuenta;
     SMTP.Password := Gpassword;
     SMTP.Host     := Gserver;
     SMTP.Port     := Strtointdef(Gpuerto,0);

     if GemailSSL then
     begin
          IdSSLOpenSSLHeaders.Load;
          //IdOpenSSLSetLibPath(Grutaexe);
          SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
          IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23;
          IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode   := sslmUnassigned;
     end;

     SMTP.Disconnect;
     SMTP.Connect;
     if SMTP.Connected then
     begin

          Try
          begin
               if Fcorreo.tag <> 7 then
               begin
                    SMTP.Send(Emessage);
                    DM.Bitacora('Correo','Envio de correo electronico', '',' Destinatario ('+Epara.text+')');

                    if listbox1.Items.Count > 0 then MessageDlg('El correo y sus adjuntos fueron enviados correctamente',mtInformation,[mbOk],0)
                    else MessageDlg('El correo fue enviado correctamente',mtInformation,[mbOk],0);

                    //DeleteFile(Efile.FileName);
               end
               else
                    Fcorreo.Tag := 0;
          end
          finally
               SMTP.Disconnect;
          END;

          Close;
     end
     else
          MessageDlg('No fue posible conectar con el servidor de correos.', mtWarning, [mbOK], 0);

y el error que estoy obteniendo es:

Any ideas?

btw i got the error in this line :

SMTP.Send(Emessage);

Google va cambiando temas de seguridad en sus cuentas cada cierto tiempo.
¿Has probado a entrar en la cuenta (desde el navegador) y validar que tienes acceso? Me refiero que no tienes ninguna condición de seguridad por validar.
Por otro lado, aquí tienes algunos hilos que hablan sobre el tema:
http://www.clubdelphi.com/foros/show...88202&langid=5
http://www.clubdelphi.com/foros/show...93210&langid=5


Otra duda. Cuando dices que no puedes buscar en los foros, ¿cual es el problema?

Baje el ejemplo de ProyectoA para envio de correos TSL / SSL...

el ejemplo funciona muy bien y envia correos sin problema, estoy tratando de adaptar ese codigo a mi aplicacion pero al momento de compilar me envia un error:

undeclared indentifier sslvTLSv1

la instruccion es:

Fcorreo.IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;

y no encuentro donde esta declarado ese identificador...

una disculpa anticipada si mi pregunta es demasiado obvia

anexo pantalla.

la cadena de busqueda fue: envio de correos con Indy