... mit dem ersten Agenten (alle markierten Dokumente) übernimmst du die Zuweisung der DocID in die Notes.ini
@Environment("MainDocID" ; @Text(@DocumentUniqueID))
... der zweite Agent hat folgenden Code
Dim session As New NotesSession
Dim dbThis As NotesDatabase
Dim dc As NotesDocumentCollection
Dim docMain As NotesDocument
Dim doc As NotesDocument
Dim sDocID As String
Dim i As Integer
Set dbThis = session.CurrentDatabase
Set dc = dbThis.UnprocessedDocuments
' # Die DocID einlesen
sDocID = session.GetEnvironmentString("MainDocID")
If sDocID = "" Then
Msgbox "Es konnte keine zugehörige DocID gelesen werden"
Exit Sub
End If
' # Das Haupdokument initialisieren
Set docMain = dbThis.getDocumentByUNID(sDocID)
If docMain Is Nothing Then
Msgbox "Das Haupt-Document konnte nicht geöffnet werden"
Exit Sub
End If
If dc.Count > 0 Then
Set doc = dc.GetFirstDocument
Call Doc.RemoveItem("$Ref")
For i = 1 To dc.Count
Call doc.MakeResponse( docMain )
Call doc.Save(True , True)
Set doc = dc.GetNextDocument(doc)
Next
Else
Print "Es waren keine Dokumente markiert"
End If
Call session.SetEnvironmentVar("MainDocID" , "")
Ich habe den Code getestet , der funzt...
ata
Edit: ... das ist ja mittlerweile richtig lebhaft geworden..
ata