使用脚本写入OUTLOOK联系人

因为客户的强烈要求，需在web中直接将数据库中的用户的联系人直接导入outlook,
部分实现代码如下：

< SCRIPT language = vbscript >
< ! --
Set outLookApp = CreateObject ( " Outlook.Application " )
Set outlookNS = outLookApp.GetNameSpace( " MAPI " )
set theContact = outlookNS.GetDefaultFolder( 10 )
set theContactItems = theContact.Items
set newContact = outLookApp.CreateItem( 2 )

newContact.LastName = " neolee "
newContact.FirstName = " huan "
newContact.MobileTelephoneNumber = " 13588888888 "

newContact.save
alert(newContact.LastName + " " + newContact.FirstName + " 成功添加至outlook联系人！ " )
//-->
</ SCRIPT >

这段代码本来是用js来写的，但运行却通不过，代码如下：

< SCRIPT language = javascript >
outLookApp = new ActiveXObject( " Outlook.Application " );
outlookNS = outLookApp.GetNamespace( " MAPI " );
theContact = outlookNS.GetDefaultFolder( 10 );
theContactItems = theContact.Items;
newContact = outLookApp.CreateItem( 2 );

if (newContact in theContactItems)
alert( " yes " );
else
alert( " no " );
</ SCRIPT >

输出结果总是no,不知哪位大侠知道是何原因？

BTW:谢谢kaneboy提出用脚本来实现，本来想用OFFICE PIA来做的，那样就比较麻烦了！:)