Ich hab auch ned gesagt, dass du das wissen hättest sollen ;)
Ich habs folgendermaßen gelöst:
zusätzliches Feld, das den Standardwert "" bekommt.
Ein extra-Ansicht, welches alle Dokumente anzeigt, die den Wert "" haben
Dann folgenden Agenten programmiert:
Dim view As NotesView
Dim db As NotesDatabase
Dim s As New NotesSession
Dim doc As NotesDocument
Dim doc_alt As NotesDocument
Dim fileNum As Integer
Dim fileName As String
Set db = s.CurrentDatabase
Set view = db.GetView("vITSM")
Set doc = view.GetFirstDocument
Do While Not doc Is Nothing
fileNum% = Freefile()
fileName$ = "J:\" & doc.UniversalID & ".txt"
Open fileName$ For Output As fileNum%
Write #fileNum%, doc.GetItemValue("body")( 0 )
Close fileNum%
Set doc_alt = doc
Set doc = view.GetNextDocument(doc)
Call doc_alt.ReplaceItemValue("fITSM_flag", "1")
Call doc_alt.Save(True, False)
Loop
Dieser Agent läuft jetzt alle 10 min auf der DB und exportiert die Daten aus dem Body in txt-File