Porque não retorna os e-mails?

12/12/2005

1

Boa tarde amigos Delphianos,

Peguei uma rotina aqui no forum para a leitura de e-mails do servidor, mas qdo eu vou ver as mensagens salvas o arquivo está em branco, uso componentes indy e o Delphi 5, o código que eu uso é o seguinte:

[b:6d8a39e3c3]procedure [/b:6d8a39e3c3]TForm1.FormShow(Sender: TObject);
[b:6d8a39e3c3]var[/b:6d8a39e3c3]
i : Word;
QtdMsgs : Word;
Msg : TStringList;
[b:6d8a39e3c3]begin[/b:6d8a39e3c3]
Msg := TStringList.Create;
[b:6d8a39e3c3]if not[/b:6d8a39e3c3](ConectaServPOP(POP3, edtEMail.Text, edtSenha.Text, edtServerReceber.Text)) [b:6d8a39e3c3]then Begin[/b:6d8a39e3c3]
ShowMessage(´Não foi possível conectar ao servidor POP´);
Exit
[b:6d8a39e3c3]End;[/b:6d8a39e3c3]
Application.ProcessMessages;

QtdMsgs := POP3.CheckMessages;
Msg.Clear;
[b:6d8a39e3c3]for[/b:6d8a39e3c3] i := 0 to QtdMsgs [b:6d8a39e3c3]do Begin[/b:6d8a39e3c3]
POP3.Retrieve(i, Mensagem);
Msg.AddStrings(Mensagem.Body);
End; // for i := 0 to QtdMsgs do
Msg.SaveToFile(´c:\msg ´ + IntToStr(i) + ´.txt´);
[b:6d8a39e3c3]end[/b:6d8a39e3c3];

Desde já, agradeço.

Robert


Responder

Posts

12/12/2005

Massuda

Aparentemente deveria funcionar. Um detalhe que pode estar pegando é que nem todas as mensagens pode ter seu conteúdo pego através da propriedade .Body. Mensagens em formato HTML, por exemplo, costumam ser geradas na forma de diversos anexos (os programas de email geralmente sabem tratar esses anexos sem problemas).


Responder

12/12/2005

Rgaffo

Pensando nisso enviei um e-mail somente com textos.


Responder

12/12/2005

Massuda

Pensando nisso enviei um e-mail somente com textos.
Mas a mensagem foi enviada em formato texto? Se estiver usando, por exemplo, Outlook Express, você tem que ir em Ferramentas|Opções|Envio e mudar o formato para envio de mensagens para texto sem formatação (o default é HTML).


Responder

12/12/2005

Rgaffo

sim, eu usei outro e-mai que eu tenho para enviar em texto, não usei o outlook enviei pelo webmail msm.


Responder

13/12/2005

Rgaffo

Pessoal, caso vcs tenham outro método para fazer isso, é muito bem vindo


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira