Acessando e-mail

Delphi

26/01/2009

Boa tarde,
Bom pessoal, eu to tentando fazer um sisteminha (na veradade é mais pra aprender mesmo) simples que acessa um webemail e me retorna os ´subjects´ dos emails pra posteriormente baixar os anexos... eu consegui fazer usando o método POP3 (usando TIdPop3) mas eu quero tambem que dê para acessar usando o método HTTP e eu não to conseguindo (não sei nem se é possivel fazer isso pelo delphi na verdade).

Um exemplo doq eu to tentando fazer é isso: [url=http://www.mailresender.com.ar/downloads.html]http://www.mailresender.com.ar/downloads.html[/url] (podem baixar p ver como é, é bem simples n precisa nem de instalacao) esse MailResender tem 3 métodos (HTTP,POP3,IMAP).

To tentando usar o TIdHTTP pra acessar usando o Post (tentando acessar Gmail) com o código abaixo:

var 
  variaveis: TStringList;
  ssl: TIdSSLIOHandlerSocket;
  http: TIdHttp;
begin
  http := TIdHttp.Create(Self);
  ssl := TIdSSLIOHandlerSocket.Create(Self);
  variaveis := TStringList.Create;

  variaveis.Add(´Email=MeuEmail´);
  variaveis.Add(´Passwd=MinhaSenha´);
  variaveis.Add(´ltmpl=default´);
  variaveis.Add(´ltmplcache=2´);
  variaveis.Add(´continue=http://mail.google.com/mail/?ui=html&zy=l´);
  variaveis.Add(´service=mail´);
  variaveis.Add(´rm=false´);
  variaveis.Add(´ltmpl=default´);
  variaveis.Add(´scc=1´);
  variaveis.Add(´PersistentCookie=no´);
  variaveis.Add(´rmShown=1´);

  http.IOHandler := ssl;
  Memo1.Clear;
  Memo1.Lines.Add(http.Post(´https://www.google.com/accounts/ServiceLoginAuth?service=mail´,variaveis));

  variaveis.Free;
  ssl.Free;
  http.Free;


Mas ele me retorna o html daquele ´Redirecionando´, não da caixa de entrada.
Não sei nem se é o jeito mais facil de fazer, procurei bastante na net e não achei nada a respeito, espero q me ajudem. :D

Obrigado pessoal...


Pimpa

Pimpa

Curtidas 0

Respostas

Pimpa

Pimpa

26/01/2009

Na verdade eu consegui algum avanço, estou usando o método ClientLogin pra conseguir uma Authentication do Google(http://code.google.com/intl/pt-BR/apis/accounts/docs/AuthForInstalledApps.html), até essa parte eu consigo, o problema é depois...

Aonde eu coloco essa chave de autenticação fornecida pelo Google?
To tentando dessa maneira, mas n ta dando certo:
auth := http.Post(´https://www.google.com/accounts/ClientLogin´,variaveis);
auth := Copy(auth,Pos(´Auth=´,auth)+5,length(auth));
Memo1.Lines.Add(http.Get(´https://mail.google.com/mail?auth=´+auth));



GOSTEI 0
Pimpa

Pimpa

26/01/2009

up


GOSTEI 0
POSTAR