procedure TMainForm.BitBtn3Click(Sender: TObject);
var Outlook : variant;
Item : variant;
xlsFileName:String;
begin
Try
Outlook := CreateOLEObject('Outlook.Application');
try
Item:=Outlook.CreateItem(0);
xlsFileName:=ExtractFilePath(Application.EXEName)+'NHCDAILY.XLS';
Item.Attachments.Add(xlsFileName,1,1,'NHCDAILY.XLS');
xlsFileName:=ExtractFilePath(Application.EXEName)+'BANKS.XLS';
Item.Attachments.Add(xlsFileName,1,1,'BANKS.XLS');
Item.Display(1);
Finally
Update;
Screen.Cursor:=crHourGlass;
Outlook.Quit;
Screen.Cursor:=crDefault;
end;
Except
Showmessage('错误：本机未安装OutLook,或OutLook打开错误！');
End;
end;
