view access. Not to worry, you can create an action button using this function
to do so.
Function CreateReadersField (doc As NotesDocument, _
strFieldName As String, strValues () As String) As Integer
Dim item As NotesItem
Set item = New NotesItem ( doc, strFieldName, strValues )
If item Is Nothing Then