Receiving email messages with a specified index from the server via POP3

procedure TForm1.btnReceiveClick(Sender: TObject);   
var   
   msgNo: Integer;   
begin   
   if clPOP3.Active then Exit;   
 
   clPOP3.Server := 'mail.test.com';   
   clPOP3.Password := 'test';   
   clPOP3.UserName := 'test';   
   clPOP3.UseTLS := ctNone;   
   clPOP3.UseSasl := False;   
   clPOP3.Open();   
 
   clPOP3.MailMessage := clMailMessage1;   
 
   msgNo := 1;   
   clPOP3.Retrieve(msgNo);   
 
   ShowMessage(clPOP3.MailMessage.Subject);   
 
   clPOP3.Close();   
end

Add Feedback