如何在DELPHI中实现Excel中的发送Email的功能？(100分)

　在Excel中按　文件/发送/邮件收件人　可以把内容发送到指邮箱，我想在程序中自动
实现这一功能，我的代码是：
procedure TForm1.Button1Click(Sender: TObject);
var ExcelIDleVariant;
begin
ExcelID := CreateOleObject('Excel.Application');
ExcelID.WorkBooks.Open('C:/tt.xls');
ExcelID.ActiveWorkBook.SendMail('tt@163.com');
end;
但运行时出现以下错误：
　　类WookBook的SendMail方法无效
请问如何解决？

gz

　 今天问题基本解决了，出现昨天的错误是因为我的OFFICE没有完全安装，重装后
可以发出去了，但，是以附件的形式，而不是以内容的形式，我想要的是以内容的
形式发，不知哪位大虾可以帮忙出出主意？

不可能以内容发出去！
procedure TExcelWorkbook.SendMail(Recipients: OleVariant; Subject: OleVariant);
begin
DefaultInterface.SendMail(Recipients, Subject, EmptyParam, 0);
end;
procedure TExcelWorkbook.SendMail(Recipients: OleVariant; Subject: OleVariant;
ReturnReceipt: OleVariant);
begin
DefaultInterface.SendMail(Recipients, Subject, ReturnReceipt, 0);
end;
上面是excel发email的函数，最多只能定义收件人，标题，回件人
其中收件人可以多个定义,也就是最多定义如下
ExcelID.ActiveWorkBook.SendMail('tt@163.com,'Hello','l_x_yuan@sohu.com');