Domino Code Fragment

Code Name*
Creating a document with Authors field using LotusScript		Date*
12/23/2025		Source (or email address if you prefer)*
[email protected]
IP address:.172.71.120.92
Description*
Here's some sample code showing how to set the appropriate properties on the field. This code is run from an agent in the initialize event.		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As notesdocumentcollection
Dim doc As notesdocument
Dim item As notesitem
Dim stringarray (1 To 3) As String
stringarray(1) = "CN=Michelle Andor/O=durham/C=ca"
stringarray(2) = "CN=Carol Beam/O=durham/C=ca"
stringarray(3) = "CN=MaryLynn West-Moynes/O=durham/C=ca"
Set db = session.currentdatabase
Set dc =db.alldocuments
Set doc = dc.getfirstdocument()
While Not (doc Is Nothing)
Call doc.replaceitemvalue("Editors", stringarray)
Set item = doc.getfirstitem("Editors") THIS IS THE CRITICAL STUFF
item.isauthors = True YOU HAVE TO SET THE PROPERTIES
item.isnames = True ISAUTHORS AND ISNAMES TO TRUE
Call doc.save(True,False)
Call session.updateprocesseddoc(doc)

Set doc = dc.getnextdocument(doc)
Wend
End Sub