Kør script på alle doc. i oversigten
Nedenstående Script afvikles fra oversigten.\"LabelNavne\" er indstillet til at overtage værdier fra markeret doc.
Scriptet kører fint en gang, MEN HVORDAN får man det til at køre på alle doc. i oversigten. DVS. oprette et \"LabelNavne\" doc. for hvert doc. i oversigten ?
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Call workspace.ComposeDocument( \"\", \"\", \"LabelNavne\" )
Set uidoc = workspace.currentDocument
Call uidoc.Close
End Sub