NeoLee's Blog

理智的人改变自己去适应世界; 不理智的则坚持让世界改变来适应自己. 因此,所有的进步都取决于不理智的人.

导航

统计

公告

使用脚本写入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来做的,那样就比较麻烦了!:)

posted on 2005-04-20 13:34 龙蛰(NeoLee) 阅读(...) 评论(...) 编辑 收藏