« Return to the blog entry
Oh, and here is some code I used in an R5 agent to pull data from the National Weather Service in the US.
Dim sess As New NotesSession
Dim currWebDoc As NotesDocument
Dim xmlhttp As Variant
Dim strxml As String
Set currWebDoc = sess.DocumentContext
Set xmlhttp = CreateObject("MsXml2.ServerXmlHttp.4.0")
Call xmlhttp.open("GET", "{Link} False)
' if you have a proxy then use these 2 lines
Call xmlhttp.setProxy(2,"proxy.address.com")
Call xmlhttp.setProxyCredentials("user","pass")
Call xmlhttp.send()
strxml = xmlhttp.responseText
Print strxml
Set xmlhttp = Nothing
Set xmldom = Nothing
Oh, and here is some code I used in an R5 agent to pull data from the National Weather Service in the US.
Dim sess As New NotesSession
Dim currWebDoc As NotesDocument
Dim xmlhttp As Variant
Dim strxml As String
Set currWebDoc = sess.DocumentContext
Set xmlhttp = CreateObject("MsXml2.ServerXmlHttp.4.0")
Call xmlhttp.open("GET", "{Link} False)
' if you have a proxy then use these 2 lines
Call xmlhttp.setProxy(2,"proxy.address.com")
Call xmlhttp.setProxyCredentials("user","pass")
Call xmlhttp.send()
strxml = xmlhttp.responseText
Print strxml
Set xmlhttp = Nothing
Set xmldom = Nothing