加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

delphi--html格式的email

(2008-10-13 15:18:03)
标签:

delphi

编程

it

分类: 计算机
    打算写个html格式的email,用到了TIdSmtp和TIdMessage控件,设置后者的ContentType为“Text/Html”即可发送HTML格式的邮件,不过有个新问题,为了避免再次写查询数据库代码,我想用现成的PHP动态页面的内容填充emial,php中本身就包含了查询数据库的操作,而HTML中嵌套其他HTML的方法有两种:一是用iframe,可惜象outlook似乎不支持;而是用Object方法,可惜outlook又不支持;无奈只好用读取网页内容填充email的方法了:

IHTMLDocument2* document = NULL;
IHTMLElement   *body;
BSTR   source;

...

web->Navigate(WideString(cate));
while(web->Busy)
   Application->ProcessMessages();
msg->Recipients->EMailAddresses = ...;
msg->From->Text = ...;
msg->Subject = ...;
msg->Body->Clear();
if((!web->Busy) && (web->Document!= NULL) && (SUCCEEDED(web->Document->QueryInterface(::IID_IHTMLDocument2,(LPVOID *)&document))));
{
        document->get_body(&body);   
        body->get_outerHTML(&source);   
        msg->Body->Add(source);
 }
 smtp->Send(msg);

...

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有