因为客户的强烈要求,需在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 >
< ! --
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 >
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来做的,那样就比较麻烦了!:)