HCL Domino - Examples: Readers property - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: Readers property
1. This example adds names to the readers field.

Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim newReaders(0 To 63) As String Dim reader As String Set db = session.CurrentDatabase Set view = db.GetView("By Category") If Isempty(view.Readers) Then n = 0 Else For j = 0 To Ubound(view.Readers) newReaders(j) = view.Readers(j) Messagebox "Current reader: " & newReaders(j) Next n = Ubound(view.Readers) + 1 End If reader = Inputbox("Name of reader?") Do While reader <> "" newReaders(n) = reader reader = Inputbox("Name of reader?") n = n + 1 Loop view.Readers = newReaders

2. This example replaces the contents of the readers field.

REM Replaces $READERS in total with what the _ user specifies here Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim newReaders(0 To 63) As String Dim reader As String Dim emptyReaders As Variant Set db = session.CurrentDatabase Set view = db.GetView("By Category") n = 0 reader = Inputbox("Name of reader?") Do While reader <> "" newReaders(n) = reader reader = Inputbox("Name of reader?") n = n + 1 Loop view.Readers = newReaders

See Also

Readers property

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents