Usando manadtory come variant, non mi da pių quell\'errore, ma non gli assegna
nessun valore, ho modificato il codice cosė:
Sub Initialize
\'declare variables
Dim Source As Notesuidocument
Dim db As NotesDatabase
Dim session As New NotesSession
Dim doc As NotesDocument, review As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim mandatory As Variant
Set db=session.CurrentDatabase \'current database
Set doc=session.DocumentContext \'current document
mandatory=doc.sendTo
\'for each element of list creates a review record
Forall member In mandatory
Set review=db.CreateDocument \'the document to open
Set Source = workspace.ComposeDocument _
( "", "", "Review Record" )
review.Mandatory=member
End Forall
End Sub
|