Article Rating

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

Sending mail messages from a database via SMTP

clSmtp1.UserName := 'user';   
clSmtp1.Password := 'passw';   
clSmtp1.Open();   
 
DataSet1.First();   
 
while not DataSet1.Eof do   
begin   
   clSmtp1.MailFrom := DataSet1.FieldByName('message_from').AsString;   
   clSmtp1.MailToList.Text := DataSet1.FieldByName('message_to').AsString;   
   clSmtp1.MailData.Text := memoField.AsString;   
   clSmtp1.Send();   
   DataSet1.Next();   
end;   
clSmtp1.Close();  

clSmtp1.UserName := 'user';   
clSmtp1.Password := 'passw';   
clSmtp1.Open();   
 
DataSet1.First();   
 
while not DataSet1.Eof do   
begin   
   clMailMessage1.BuildMessage(DataSet1.FieldByName('message_body').AsString, '');   
   clMailMessage1.From.FullAddress := DataSet1.FieldByName('message_from').AsString;   
   clMailMessage1.ToList.EmailAddresses := DataSet1.FieldByName('message_to').AsString;   
   clMailMessage1.Subject := DataSet1.FieldByName('message_subject').AsString;   
   clSmtp1.Send(clMailMessage1);   
 
   DataSet1.Next();   
end;   
clSmtp1.Close();  

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