Ok
Mit den beiden Methoden kommst Du an die gerade Importierten NoteID's ran. Also an die gerade importierten Dokumente.
Mit diesen Dokumenten kannst Du dann machen was Du willst.
z.B. Ein Flag setzen, dass diese Dokumente aus dem DXL importiert wurden? evtl. auch das Datum des Imports?
Dim db ..
Dim session ...
Set db = New NotesDatabase( "", "mail\userxy.nsf" )
Set importer = session.CreateDXLImporter
importer.ReplaceDBProperties = True
importer.ReplicaRequiredForReplaceOrUpdate = False
importer.ACLImportOption = DXLIMPORTOPTION_REPLACE_ELSE_IGNORE
importer.DesignImportOption = DXLIMPORTOPTION_CREATE
Call importer.Import(stream, db)
noteID$ = importer.GetFirstImportedNoteID( )
set importeddocument = db.getdocumentByID(noteID)
call importeddocument.putInFolder("Aufträge")