关于调用OUTLOOK发邮件(急)(100分)

我的程序代码如下
procedure TForm1.Button1Click(Sender: TObject);
const
olMailItem = 0;
var
Outlook: OleVariant;
vMailItem: variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add('ran@ykse.com.cn');
vMailItem.Subject := 'test email';
vMailItem.Body := 'This is a test';
vMailItem.Attachments.Add('c:/ab.txt');
vMailItem.Send;

VarClear(Outlook);

end;
不知道什么原因，每次运行的时候OUTLOOK总是弹出警告框说有可能是病毒，建议不要发送
而且就算我按了‘是’发送，也发送不出去，不知道是什么原因，请各位大哥指教，我的程序
只是发邮件，根本不是病毒，在W98和W2K都遇到这种情况

装了什么防毒程序?

一台机装了睡星，另外一台装了金色毒霸，那个警告框不是用杀毒软件弹出来的，是OUTLOOK
自己弹出来的，说有程序正在发邮件，可能是病毒，你自己运行一下程序就明白了，对了
那个OUTLOOK是6。0版本，可能这个程序在OUTLOOK6。0是运行不了的，请各位大哥提供一个办法

如果你装了OutLook6.0 后从没改动过，你试试这种办法：
切换到OutLook中的“工具”菜单下“选项”中的“安全”页，将“不允许保存或打开
可能有病毒的附件”选项不选中，就可以解决你的问题了。

试过了，没用

多人接受答案了。