Cooles Ding, musste ich gleich mal in einem Agent (einer Spielwiesen-DB) ausprobieren:
Sub Initialize
Dim oSession As New NotesSession
Dim oDB As NotesDatabase
Dim oColl As NotesDocumentCollection
Dim oDoc As NotesDocument
Set oDB = oSession.CurrentDatabase
Set oColl = oDB.AllDocuments
Set oDoc = oDB.CreateDocument
oDoc.StampAllMultiTest1 = "Wert1"
oDoc.StampAllMultiTest2 = "Wert2"
oColl.StampAllMulti oDoc
End Sub
Ergebnis: Alle Doks in der DB behielten ihre "alten" Felder und bekamen die 2 neuen dazu. Und: Das Teil ist rasend schnell und sollte sich auf jeden Fall lohnen, wenn man mal mehrere Felder in einer Collection bei gleichem Inhalt pro Feld füllen möchte...