新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 软件开发 > Web开发 > Asp教程 > 正文:ASP访问Exchange Server问题

ASP访问Exchange Server问题

新客网 XKER.COM 2003-04-10 来源: 收藏本文
<% Response.Status = ("401 Unauthorized") bstrServer = "SERVER2"
Dim objSession,objMessage Dim bstrProfileInfo
Set objSession=Server.CreateObject("MAPI.Session")
bstrProfileInfo="SERVER2" & Chr(10) & "administrator"
objSession.Logon "","",False,True,0,True,bstrProfileInfo
Set ObjMessage=objSession.Outbox.Messages.Add
'如果没有第一句(Response.Status=("401 Unauthorized")就出错,出错信息如 下
'*******************************************************************
******************************* 'Collaboration Data Objects 错误 '00000505'
'You do not have permission to log on. [Microsoft Exchange Server In
formation Store - [MAPI_E_FAILONEPROVIDER(8004011D)]]
'/email/sendmessage.asp, 行14 '我的想法是:
'Exchange需要验证administrator的口令,这可以理解,否则怎么能够往adminis trator的Outbox里面添加信息呢?
'问题在于我不想它弹出一个身份验证的窗口 '另外,如果有第一句的身份验证,则要进行三次登录,并且把这个E-mail重复发送 ,why?
'******************************************************************
******************************* objMessage.Subject="TEST"
objMessage.Text="TEST" Set objonerecip = objmessage.Recipients.Add
objonerecip.Name = "hexh@gemway.com" objonerecip.Resolve objMessage.Send
objSession.Logoff %>
收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐