Componente Indy POP3 visualizar mesma mensagem mais de uma vez

Question

Ol�, eu estou com um pequeno problema. Preciso visualizar o conte�do de um email mais de uma vez. Do jeito que est� agora eu s� consigo ver uma vez depois n�o mais. Algu�m pode ajudar?...

Fabricio Hissao Kawata · Accepted Answer

Oi Geovane. Isso depende muito do contexto. Uma vez que voc� d� um Retrieve no servidor, a mensagem vem pra voc� e dessa forma voc� pode persistir o seu conte�do de alguma forma (banco de dados, xml, ...

Geovane Moreira · Answer

Eu estou salvando o conte�do num banco de dados. Mas eu queria que ele me mostrasse tudo o que tem na caixa de entrada do email, mesmo sendo lido ou n�o. Porque o seu sistema vai ser usado em v�rios programas e locais e quando um abrir eu quero que os outros ainda possam abrir e visualizar tamb�m. Meu c�digo est� assim:

procedure Receber;
var MessageCount, i:integer;
begin
try
if IdPOP31.Connected then IdPOP31.Disconnect;
IdPOP31.Host:= 'pop.gmail.com';
IdPOP31.Port:= 995;
IdPOP31.Username:= 'meu_email@dominio';
IdPOP31.Password:= 'minha_senha';
IdPOP31.IOHandler:= IdSSLIOHandlerSocket1;
IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvSSLv23;
IdSSLIOHandlerSocket1.SSLOptions.Mode:=sslmClient;
IdPOP31.Connect;
MessageCount:=idPOP31.CheckMessages();
for i:= 1 to MessageCount do
begin
idPOP31.Retrieve(i, idMessage1);
//Caso queira colocar o remetente
Verifica.Text:=(idMessage1.Subject);
end;
IdPOP31.Disconnect;
except
on E:Exception do ShowMessage(e.Message);
end;
end;

Geovane Moreira · Answer

O c�digo � esse acima!...

F�rum Componente Indy POP3 visualizar mesma mensagem mais de uma vez #592063