Der Kern steckt hier
personen_VAR = doc_dummy.TEMP_Personen
Du musst mal schauen, in welchem Format die Personen in der Dialogbox aufgeführt sind (Liste von Usernamen, Personalnummern o.ä.).
Dann kommentierst Du die Dialogbox aus und füllst personen_VAR mit einer Liste aller Personen, die Du zuvor z.B. über eine NotesDocumentCollection geholt hast. Sinngemäß so
Dim col As NotesDocumentCollection
Set col = db.Search (|Selektionsformel für alle Mitarbeiterdokumente der DB|, Nothing, 0)
Dim doc As NotesDocument
Dim i As Integer
If col.Count > 0 Then
Redim personen_VAR (col.Count - 1)
Set doc = col.GetFirstDocument
Do While Not doc Is Nothing
personen_Var (i) = doc.RelevanterFeldnameDesMitarbeiterdokuments (0)
i = i + 1
Set doc = col.GetNextDocument (doc)
Loop
End If
Natürlich kann man das auch eleganter angehen, ich habe versucht eine Lösung darzustellen, die möglichst wenige Veränderungen am vorhandenen Script benötigt.