bastava che facevo un forall su doc.sendTo, ti posto il codice giusto
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
Set db=session.CurrentDatabase \'current database
Set Source=workspace.CurrentDocument \'current source document
Set doc=Source.Document \'current document
Forall member In doc.sendTo
Set review=db.CreateDocument \'the document to open
review.Form = "Review Record"
review.Mandatory=member
review.ParentSubject=doc.DoclinkParent(0)
review.Subject=doc.Title(0)
Call review.Save(False,False)
End Forall
End Sub
Grazie per l\'aiuto
|