Article Rating

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

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; 

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