Envio de correo con Indy 10 / Delphi 7

[ArtPortEsp]

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:

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:

Project xxxxxxx raised exception class EIdSMTPReplyError with message ''

Any ideas?

btw i got the error in this line :

SMTP.Send(Emessage);

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

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/showthread.php?t=88202&langid=5
http://www.clubdelphi.com/foros/showthread.php?t=93210&langid=5


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

[ArtPortEsp]

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

[ArtPortEsp]

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

anexo pantalla.

la cadena de busqueda fue: envio de correos con Indy