Article Rating

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

Retrieving pop3 mail messages to a database

clPop3.UserName := 'user';   
clPop3.Password := 'psw';   
clPop3.Open();   
clPop3.Retrieve(MsgNo);   
 
if not (DataSet1.State in [dsInsert, dsEdit]) then   
   DataSet1.Insert();   
stream := TMemoryStream.Create();   
try   
   clPop3.Response.SaveToStream(stream);   
   BlobField1.LoadFromStream(stream);   
finally   
   stream.Free();   
end;   
 
DataSet1.Post();    
 

clPop3.UserName := 'user';   
clPop3.Password := 'psw';   
clPop3.Open();   
clPop3.Retrieve(MsgNo, clMailMessage1);   
 
if not (DataSet1.State in [dsInsert, dsEdit]) then   
   DataSet1.Insert();   
 
DataSet1.FieldByName('message_id').AsString := clMailMessage1.MessageID;   
DataSet1.FieldByName('message_from').AsString := clMailMessage1.From;   
DataSet1.FieldByName('message_subject').AsString := clMailMessage1.Subject;   
DataSet1.FieldByName('message_date').AsDateTime := clMailMessage1.Date;   
 
textBody := TStringList.Create();   
try   
   clMailMessage1.GetBodyText(textBody);   
   DataSet1.FieldByName('message_text').AsString := textBody.Text;   
finally   
   textBody.Free();   
end;   
 
DataSet1.Post(); 

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