Hello Forum,
i have tryed to run this Script on a domino server:
Sub Initialize
Dim session As New NotesSession
strURL = "http://www.anywhere.com"
Print HTTPGet(strURL)
End Sub
Function HTTPGet(strURL) As String
Dim strReturn ' As String
Dim objHTTP ' As MSXML.XMLHTTPRequest
If Len(strURL) Then
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.open "GET", strURL,False
objHTTP.send 'Get it.
strReturn =objHTTP.responseText
End If
Set objHTTP = Nothing
'Print strURL
HTTPGet = strReturn
End Function
The Server prints: “Operation is disalowed in this session”
When i run this in a Notes-Client it works!
What ist wrong?
Thenks!
Bernd
