请问怎么实现从数据库中查出来的内容群发邮件给各个人？好急好急啊！！

Question

这样的，我想把从数据库中查出来的信息发邮件给单位的人（收件人可以选择）
可以把收件人和发送内容都以字符串保存，
我想过调用outlook，请问怎么实现调用的时候收件人和发送内容对应的传过去
如果是用里面的控件群发邮件请问怎么做呢？
好急好急啊

Answer 1

应该和word的原理差不多吧
const olMailItem = 0; 
var 
  Outlook: OLEVariant; 
  MailItem: Variant; 
begin 
  try 
    Outlook := GetActiveOleObject('Outlook.Application'); 
  except 
    Outlook := CreateOleObject('Outlook.Application'); 
  end;   MailItem := Outlook.CreateItem(olMailItem); 
  MailItem.Recipients.Add('[email protected]); 
  MailItem.Subject := 'your subject'; 
  //下面应该是你要的东西! 
   MailItem.Body := 'Welcome to my homepage: http://www.scalabium.com'; 
  //附件
  MailItem.Attachments.Add('C:\Windows\Win.ini'); 
  MailItem.Send; 
   
  Oulook := Unassigned; 
end;

Answer 2

群发，就你多Add这个方法！
 MailItem.Recipients.Add('[email protected]); 

Answer 3

最好用多线程.
发现一个可以下载(Delphi)代码的地方:  
http://www.datcn.com/luntan/dispbbs.asp?boardID=26&ID=879