4 replies to this topic

[egostar]

Pues eso amigos

Alguien sabe como o con que puedo descargar los correos de una cuenta de GMail ?

Por supuesto con Delphi

Saludos y gracias

[Rolphy Reyes]

Saludos.

Busca en la pagina de los INDY, me parece que ellos tienen un ejemplo de como lograr esa tarea.

[imhenry8th]

Gracias EGOSTAR por el interes en este tema.

Te comento que logré resolver este problema, con tu valiosa ayuda y buscando un poco encontré que era lo que faltaba en el ejemplo que vimos.

Aquí te muestro como se resolvió el asunto.

1.- Descargué de  http://indy.fulgan.com/SSL/ la última versión de indy OPENSSL y las dos DLLs: ssleay32.dll y libeay32.dll las coloqué en el mismo directorio del proyecto.

2.- En el proyecto agregué en el uses  lo siguiente: IdSSLOpenSSLHeaders

3.- En el create de la forma agregué lo siguiente:

delphi

procedure TForm5.FormCreate(Sender: TObject);
begin
  IdSSLOpenSSLHeaders.Load;
end;

4.- En las propiedades de idPop31

IOHandler =IdSSLIOHandlerSocketOpenSSL1
Port = 995
UseTLS = utUseImplicitTLS
host de = pop.gmail.com
Tambien se debe agregar los datos de la cuenta: Usuario, contraseña

Se agregan los siguientes componentes

TidPop3
TidMessage
TIdSSLIOHandlerSocketOpenSSL
TMemo
TButton

Y el código del Button1 quedó así:

delphi

procedure TForm5.Button1Click(Sender: TObject);
var
  n,
  nummsgs    : integer;
begin
  Memo1.Lines.Clear;
  //Conectamos!
  idpop31.Connect;
 
  //Obtenemos el numero de emails que tenemos
  NumMsgs:=idpop31.CheckMessages;
 
  Memo1.lines.add( IntToStr(NumMsgs) );
 
  for n:=1 to NumMsgs do begin
    idpop31.RetrieveHeader(n,idMessage1);
    Memo1.Lines.Add( 'Email Nº:'+IntToStr(n)+
                     ' De:'+idMessage1.From.Text+
                     ' Tema:'+idMessage1.Subject );
    idMessage1.Clear;
  end;
  idpop31.Disconnect;
end;

Una felicitación al Foro

[egostar]

Perfecto amigo Enrique, gracias por la retro.

Saludos

[luk2009]

He tratado de reproducir esto, pero me da el siguiente error:



Alguien sabe porque el error