Article Rating

  • 0 Rating(s)
  • 0
  • 0
  • 0
  • 0
  • 0

How to get information about all messages in the mailbox via POP3

procedure TForm1.Button1Click(Sender: TObject);   
const   
   POP3_OK = 1;   
begin   
   clPOP3.Server := 'mail.myserver.com';   
   clPOP3.UserName := 'test';   
   clPOP3.Password := 'test';   
   clPOP3.Open();   
 
   clPOP3.SendCommandSync('LIST', [POP3_OK]);   
   ShowMessage(clPOP3.Response.Text);   
 
   clPOP3.Close();   
end; 

Article ID: 39, Created On: 1/23/2010, Modified: 1/23/2010