Über einen Agent ginge das.
Dim ses As New NotesSession Dim curDoc as NotesDocument Dim newDoc as NotesDocument Dim i As Integer Set curDoc = ses.DocumentContext For i = 0 To curDoc.FeldMitNamen Set newDoc = New NotesDocument(ses.CurrentDatabase) ... Werte Setzen ... Call newDoc.Save(True, False) Set newDoc = Nothing Next