ASP access to Exchange Server issues

<% Response.Status = ("401 Unauthorized") Bstrserver = "SERVER2"
Dim objsession,objmessage Dim Bstrprofileinfo
Set objsession=server.createobject ("MAPI. Session ")
Bstrprofileinfo= "SERVER2" & Chr (Ten) & "Administrator"
objSession.Logon "", "", False,true,0,true,bstrprofileinfo
Set Objmessage=objsession.outbox.messages.add
' If there is no first sentence (response.status= ("401 Unauthorized") error, the error message is as follows
'*******************************************************************
' Collaboration Data Objects error ' 00000505 '
' You don't have permission to log. [Microsoft Exchange Server in
Formation Store-[Mapi_e_failoneprovider (8004011D)]]
'/email/sendmessage.asp, line 14 ' My idea is:
' Exchange needs to verify the password of the administrator, which is understandable, how else can you add information to the Outbox of Adminis Trator?
' The problem is I don't want it to pop up an authenticated window ' In addition, if you have the first sentence of authentication, you have to log in three times and send this e-mail repeatedly, why? '******************************************************************
objmessage.subject= "TEST"
objmessage.text= "TEST" Set Objonerecip = objmessage. Recipients.add
Objonerecip. Name = "Hexh@gemway.com" Objonerecip. Resolve Objmessage.send
Objsession.logoff%>