Article Rating

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

Storing a mail message on the IMAP server

procedure TForm1.btnStoreClick(Sender: TObject);   
begin   
   clIMAP4.Server := 'mail.test.com';   
   clIMAP4.UserName := 'test';   
   clIMAP4.Password := 'test';   
   clIMAP4.Open();   
 
   clMailMessage1.Clear();   
   clMailMessage1.From.FullAddress := 'test@test.com';   
   clMailMessage1.ToList.Add('support@mywebsite.com');   
   clMailMessage1.Subject := 'question';   
   clMailMessage1.Bodies.AddText('Text message here');   
 
   clIMAP4.AppendMessage('MyMailBox', clMessageParser1, []);   
 
   clIMAP4.Close();   
end; 

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