<%  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   %>