调用outlook发邮件不成功(20分)

使用bcb6调用outlook发邮件不成功。
ShellExecute(Application->Handle,"Open","mailto:xxx@126.com?Subject=Hello&Body=This is a test",NULL,NULL,SW_SHOW);
可以调出outlook，当点击发送邮件时，outlook退出。outlook其他功能均正常（outlook配置正常，从windows调用时正常发送邮件）。
（使用Raize调出outlook，出现同样问题）
只有20分啦。

ShellExecute(0,'open',PChar('mailto:xxx@126.com?Subject=Hello&Body=This is a test'),'','',sw_Normal);

还是退出？
是不是微软故意的呀！

检查过防火墙设置了么?是不是把delphi,或者当前程序禁止访问网络了?