Domino Code Fragment

Code Name*
NotesDocument property .Authors		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.141.199.243
Description*
Retrieves the authors of a given document in a Notes document by using the NotesDocument property . Authors .		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Syntax
variablename = document.Authors

The return value must be of type variant. The variant will be converted to an array by LotusScript, even if only one name is returned. Use array index references to access the document author(s).

Click here to see the example execute

Dim session As New NotesSession 'Declare session as a new Notes session
Dim db As NotesDatabase 'Declare db as a Notes Database
Dim doc As NotesDocument 'Declare doc as a Notes Document
Dim view As NotesView 'Declare view as a Notes view
Dim DocAuthor As Variant 'Declare DocAuthor as variant type
Set db = session.CurrentDatabase 'Set db to the current Notes database
Set view = db.GetView("Beginning") 'Set view to the Notes view "Beginning"
Set doc = view.GetFirstDocument 'Set doc to the first document in view
DocAuthor = doc.Authors 'Use the Authors property to retrieve the author(s)
'of the document
Messagebox DocAuthor(0) 'Display the first author of the document from the
'array, DocAuthor