hola necesito que ustedes me revisen estas lineas y me diga si estan correctas,pues creo que me falte algo porque no me funcionan.
procedure TfrmMain.IdPOP3Server1TOP(ASender: TIdCommand; AMessageNum, ANumLines: Integer);
begin
// Aquí es donde el client ha pedido a las líneas TOP X de una determinado Mensaje a ser enviado a ellos
if (AMessageNum > 0) AND (ANumLines > 0) then begin
ASender.Thread.Connection.WriteLn('+OK');
ASender.Thread.Connection.WriteLn('qFrom:
raulrr91@gmail.com');
ASender.Thread.Connection.WriteLn('To:
fiderosado@gmail.com ');
ASender.Thread.Connection.WriteLn('Subject: este es el top');
ASender.Thread.Connection.WriteLn('');
ASender.Thread.Connection.WriteLn('Message: de cojones');
end;
end;