Agent de recherche sur internet

[Stephane Maillard]

[syntax="ls"]Sub Initialize
Dim Session As New NotesSession
Dim currentdb As NotesDatabase
Set currentdb = Session.CurrentDatabase
Dim webdoc As NotesDocument

Dim unprocessed As NotesDocumentCollection
Set unprocessed = currentdb.unprocesseddocuments

Dim doc As NotesDocument
Set doc = unprocessed.getfirstdocument

Do While Not (doc Is Nothing)

If doc.form(0) = "Yahoo Search" Then

Dim YahooQuery As String
YahooQuery = doc.QueryText(0) ' Champs de recherche

Do While Instr(YahooQuery," ")
pos = Instr(YahooQuery," ")
YahooQuery = Left$(YahooQuery,pos - 1) + "+" + Right$(YahooQuery, Len(YahooQuery) - pos)
Loop

u = "http://av.yahoo.com/bin/query?p=" + YahooQuery

Set webdoc = currentdb.getdocumentbyurl(u,True)
Call webdoc.MakeResponse(doc)
Call webdoc.save(True,False)

End If

Call session.UpdateProcessedDoc(doc)

Set doc = unprocessed.getnextdocument(doc)

Loop

End Sub[/syntax]Ne pas oublier de créer un document avec un champs qui contient ce que vous voulez rechercher.