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

hehaoliang 2004-08-31 02:22:21
这样的,我想把从数据库中查出来的信息发邮件给单位的人(收件人可以选择)
可以把收件人和发送内容都以字符串保存,
我想过调用outlook,请问怎么实现调用的时候收件人和发送内容对应的传过去
如果是用里面的控件群发邮件请问怎么做呢?
好急好急啊
...全文
194 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
datland 2004-10-05
  • 打赏
  • 举报
回复
最好用多线程.
发现一个可以下载(Delphi)代码的地方:
http://www.datcn.com/luntan/dispbbs.asp?boardID=26&ID=879
lwk_hlj 2004-08-31
  • 打赏
  • 举报
回复
群发,就你多Add这个方法!
MailItem.Recipients.Add('mshkolnik@scalabium.com);
lwk_hlj 2004-08-31
  • 打赏
  • 举报
回复
应该和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('mshkolnik@scalabium.com);
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;

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧