Fórum Recebendo email idpop3 #313281

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

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

Agora ta dando

´Bad Login´


Vichi...

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.

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