Поиск полей документа типа Readers, Authors и запись их в файл

Sub Click(Source As Button)
Dim s As New NotesSession
Dim w As New NotesUIWorkspace

Dim doc As NotesDocument
Dim docItem As NotesItem

Set doc = w.CurrentDocument.Document

Set FSO = CreateObject("Scripting.FileSystemObject")

 Set TextStream = FSO.CreateTextFile("C:\Fields.txt") 'Файл, куда записываются имена полей

Forall docit In doc.Items
If docIt.IsAuthors Then
TextStream.WriteLine docIt.Name + "###" + Join(docIt.Values, "; ")
End If
If docIt.IsReaders Then
TextStream.WriteLine docIt.Name + "###" + Join(docIt.Values, "; ")
End If
End Forall
TextStream.Close
End Sub

Другой вариант функции:
Function GetAllReadersAndAuthors(doc As NotesDocument) As Variant
On Error Goto errhand

Dim pItem As Variant
Dim emptyvar As Variant

Redim pItem(0)

Forall itemb In doc.Items
If ( itemb.IsAuthors Or itemb.IsReaders ) Then
pItem = Fulltrim(Arrayunique(Arrayappend(pItem, itemb.Values)))
End If
End Forall

GetAllReadersAndAuthors = pItem
exiting:
Exit Function
errhand:
Msgbox "Ошибка " & Err & " в функции GetAllReadersAndAuthors, в строке " & Erl
GetAllReadersAndAuthors = emptyvar
Resume exiting
End Function