 |
||||
|
|
|||
|
||||
Requires Free Membership to View
Register today to access targeted resources from our editorial writers and independent industry experts focused on Lotus Domino, Notes, Workplace and other related technologies.
You can use this LotusScript code to retrieve any kind of RSS feed, XML document on the Web, or Google news feed from inside the Lotus Notes client.
Note: This only works on Microsoft Windows.
Sub Click(Source As Button)
' This script fetches News
feeds from Google from within the Lotus Notes client
' You could apply this technique
to any site that return RSS or XML format.
' Use the xpath query to change
what you want to return
' This script requires Microsoft Windows.
' 1. Create a new form, and a field called Result
' 2. Make the field allow multiple
values and separate on new line
' 3. Create a new button and paste
in the LotusScript
' 4 Preview the form, click the button
and enter a search query
Dim nodes As Variant,
xpath As Variant,xmldoc As Variant
Dim ws As New notesuiworkspace,
q As Variant,url As String
Dim doc As notesdocument,
item As notesitem,v As Integer
Set doc = ws.currentdocument.document
q =Evaluate(|@ReplaceSubstring
("| + Inputbox("Query","Enter Query",
"volvo") + |";" ";"+")|)
Print Implode(q)
Set xmlDoc=CreateObject
("Microsoft.XMLDOM")
xmlDoc.async="false"
url = "http://news.google.se/news?hl=sv&q="
+ Implode(q) + "&ie=UTF-8&oe=UTF-8&output=rss"
xmldoc.load(url)
xpath="/rss/channel/item/title"
Set nodes=xmlDoc.selectNodes(xpath)
doc.Result = ""
If doc.IsNewNote Then Call doc.Save(False,False)
Set item = doc.GetFirstItem("Result")
Forall x In nodes
v = v + 1
Call item.AppendToTextList(Cstr(v) + ". " + x.text)
End Forall
End Sub
|
||||
|
|
|||
|
||||
This is a nice tip, but you should take note that the sample LotusScript provided retrieves items from Google Sweden in Swedish. Change the url= line to
url = "http://news.google.com/news?hl=en&q=" + Implode(q) + "&ie=UTF-8&oe=UTF-8&output=rss" to get results in English from Google.com.
—John H.
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Thomas Adrian. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.
This was first published in August 2007