Hi, ungefähr so....
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim maildb As New NotesDatabase( "", "" )
Set db = s.GetDatabase("","names.nsf")
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
Do While Not(doc Is Nothing)
form = doc.form
If form(0) = "Location" Then
doc.WebRetriever = "2"
Call doc.save(True,False)
End If
Set doc = dc.GetNextDocument(doc)
Loop
End Sub