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

[hehaoliang]

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

[lwk_hlj]

应该和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('[e-mail]);
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;

[lwk_hlj]

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

[datland]

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