Lotus Notes, Sametime and Java working together

Sametime and Domino solutions
Lotus Notes/Domino and Sametime software made easy
 


Get notification about
updates

 

Simple web page downloader

This LotusScript agent downloads a web page from web server.

Sub Initialize
Dim xml, tmp
Set xml = CreateObject("Microsoft.XMLHTTP")
Call xml.Open ("GET", "http://www.company.com/files/page1.html", False)
' adding "?rnd="+Cstr(Timer) to the URL will help avoiding caching problems
Call xml.SetRequestHeader ("Content-type", "text/html" )
Call xml.Send()
tmp = xml.responseText
Set xml = Nothing
Msgbox tmp 'show the full HTML content of the page
End Sub












© Copyright 2004. Botstation