Fetching URL form Notes

HCL Domino Domino Forum
1

hi all, i gt a code frm web which is fetching url in Notes. bt during execution it gives the following error

‘Msxml3.dll: access denied’

can any body xpln the reason.

2

Subject: Fetching URL form Notes

Maybe your are not allowed to call external code. Check your ECL.

brgds

Jesper Kiaer

http://www.jezzper.com

3

Subject: RE: Fetching URL form Notes

hi i ve done the changes suggested by you, bt c the same prb is coming again.

error msg

msxml3.dll:Access denied

pls suggest something else.I am sending the whole code.

'** this will give you the whole web page, not including the HTTP Headers,

'** as raw HTML/XML text

Dim XmlHttpRequest As Variant

Dim response As String



Set XmlHttpRequest = CreateObject("Microsoft.XMLHTTP")

Call XmlHttpRequest.Open("GET", "http://www.google.com", False)

"Call XmlHttpRequest.Send()"--->error at this line.





response = XmlHttpRequest.responseText





'** this will give you the body of the web page, translated to NotesRichText

'** (the HTTP headers are available as individual fields -- one for each header

'** name -- on the document)

Dim session As New NotesSession

Dim db As NotesDatabase

Dim doc As NotesDocument

Dim pageBody As String



Set db = session.CurrentDatabase

Set doc = db.GetDocumentByURL("http://www.google.com", True)

pageBody = doc.GetItemValue("Body")(0)

Call doc.Remove(True)