用ADO百excel当数据库使用或者ole对象
VAR
  EXECELAPP:VARIANT;
BEGIN
  EXECELAPP :=CREATEOLEOBJECT(EXCEL。APPLICATION);
  。
  。
  在csdn上搜一搜,有很多带吗,我就不写了。
  发送邮件DELPHI填写邮件结构就可以发了。