Ciao ho scritto questo agente per cambiare il valore di un campo contenuto nei
docuemti di una vista, ma non va che sabglio??
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView( "nomevista" )
Set doc = view.GetFirstDocument
While Not doc Is Nothing \'fintanto che doc esiste
doc.PublicAccess = 1
Call doc.Save(False,False)
Wend
End Sub
|