Recebendo email idpop3

Delphi

16/02/2006

fala galera...
quando vou receber meus e-mail ta dando um erro:


Unrecognizes Pop3 Response Header:
.....

O que pode ser?

Abraços


Tremonti

Tremonti

Curtidas 0

Respostas

Massuda

Massuda

16/02/2006

Qual é a mensagem (completa) que está dando?

Qual é o servidor POP3 que você está usando?


GOSTEI 0
Tremonti

Tremonti

16/02/2006

Agora ta dando

´Bad Login´


Vichi...


GOSTEI 0
Massuda

Massuda

16/02/2006

Significa que o login falhou. Verifique a senha e o nome da conta e veja se você consegue acessar a conta de email usando o Outlook Express ou o Thunderbird.


GOSTEI 0
Tremonti

Tremonti

16/02/2006

Conectou, mas e agora, como insiro a mensagem do e-mail?

Aqui esta o codigo!!!

var
tamanho : integer;
msg : integer;
i : integer;
intindex : integer;
begin
IdPOP31.Disconnect;
IdPOP31.Connect;

msg := IdPOP31.CheckMessages;
Caption := ´Novas: ´ + IntToStr( msg ) + ´ Tamanho das Mensagens: ´ + InttoStr(IdPOP31.RetrieveMailBoxSize div 1024) + ´KB´ ;

for i:= 0 to 1 do
Begin
IdPOP31.RetrieveHeader( msg, IdMessage1 );
Edit1.Text := IdMessage1.Subject;
Edit2.Text := IdMessage1.From.Text;
Edit4.Text := FormatDateTime(´dd/mm/yyyy´ , IdMessage1.Date);
Edit3.Text := IntToStr(Ord(IdMessage1.Priority) + 1);

for intindex := 0 to Pred(IdMessage1.MessageParts.Count) do
if IdMessage1.MessageParts.Items[intIndex] is TIdText then
begin
Memo1.Lines.Clear;
Memo1.Lines.AddStrings(TIdText(IdMessage1.MessageParts.Items[intIndex]).Body);
end //if

End; //For


GOSTEI 0
POSTAR