![]() | |
![]() |
| | Thread Tools | Search this Thread | Display Modes |
#1
| |||
| |||
|
#2
| |||
| |||
|
|
i save a mail message to a file on a computer that is located in my network places, my operating system is xp. The code in the html page is a vbscript code and the application run in the intranet. this message that i get is: 3716 Safety setting on the computer prohibit accessing adta source on athoer domain. when i run this web applicaiton from w2000 client it works fine. in the begining it worked fine also from a XP client, but suddenly it stopped working . I want to know if there any other way to do the saving? code: function expmail(displayname,href) Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") objXMLHTTP.open "GET", href, false objXMLHTTP.setRequestHeader "Translate","f" objXMLHTTP.send fname = BaseLocation + displayname on error resume next set stm = createobject("ADODB.Stream") If err.number <> 0 Then msgbox cstr(Err.number ) + " " + Err.Description end if stm.open msgstring = objXMLHTTP.responsetext stm.type = 2 stm.Charset = "x-ansi" stm.writetext msgstring,0 stm.Position = 0 stm.type = 1 on error resume next stm.savetofile fname set stm = nothing If err.number <> 0 Then msgbox cstr(Err.number ) + " " + Err.Description End If end function |
![]() |
| Thread Tools | Search this Thread |
| Display Modes | |
| |