si l\'ho fatto:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim voli As NotesView
Set db = session.CurrentDatabase
Set voli = db.GetView( "nvoli" )
Set doc = voli.GetFirstDocument
While Not doc Is Nothing \'fintanto che doc esiste
doc.PublicAccess= 1
Call doc.Save(True,True)
Set doc = voli.GetNextDocument(doc)
Wend
End Sub
ma cmq non capisco xchè non funziona
|