Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim item As NotesItem
Set db=s.Currentdatabase
Set view = db.Getview("Name der Ansicht")
Set doc=view.Getfirstdocument
Do Until doc Is Nothing
Set item=doc.Getfirstitem("Name des Autorfeldes")
item.Isauthors=True
doc.save True, False
Set doc=view.getnextdocument(doc)
Loop
End Sub