Array
(
)

Porque não retorna os e-mails?

Rgaffo
   - 12 dez 2005

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:

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

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

Desde já, agradeço.

Robert


Massuda
   - 12 dez 2005

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).


Rgaffo
   - 12 dez 2005

Pensando nisso enviei um e-mail somente com textos.


Massuda
   - 12 dez 2005


Citação:
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).


Rgaffo
   - 12 dez 2005

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


Rgaffo
   - 13 dez 2005

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