logo

New Response

« Return to the blog entry

You are replying to:

  1. 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

Your Comments

Name:
E-mail:
(optional)
Website:
(optional)
Comment: