Dim doc As NotesDocument
'...set value of doc...
Forall i In doc.Items
Messagebox( i.Name )
End Forall
Dim doc As NotesDocument
Dim authorItem As NotesItem
'...set value of doc...
Forall item In doc.Items
If ( item.IsAuthors ) Then
Set authorItem = item
End If
End Forall