La manipulation suivante est tres interessante et permet de voir la puissance des Classes de l'environnement NotesUIWorkspace :
This form action script copies the contents of the Topic field of the current document to the Clipboard. It composes a new Memo document in HERE.NSF on server Rio (changing the value of the uidoc object), and pastes the contents of the Clipboard into the Subject field of the new document.
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField( "Topic" )
Call uidoc.SelectAll
Call uidoc.Copy
Set uidoc = workspace.ComposeDocument _
( "Rio", "here.nsf", "Memo" )
Call uidoc.GotoField( "Subject" )
Call uidoc.Paste
End Sub
|