Hallo Frank,
um den Spaßfaktor hoch zu halten, empfehle ich das Studium der Designer-Hilfe an folgenden Stellen. Und die dazugehörigen Code-Beispiele sind ein guter Einstieg, auch für weitere Forschungen :)
markierte Dokumente in der View
Read-only. The documents that are currently selected in a view.
Syntax
To get: Set notesDocumentCollection = notesUIView.Documents
Die Schleife mit
Set docSel = notesDocumentCollection.GetFirstDocument
while not docSel is nothing
.
.
.
Set docSel = notesDocumentCollection.GetNextDocument (docSel)
wend
Textdatei öffen & schreiben
Open statement
Opens a file, enabling access to it for reading or writing data.
Write# statement
Writes data to a sequential text file with delimiting characters.
Nach Auswahl von "LotusScript" im Button "Option declare" nicht vergessen!
Markus
... für die selektierten Dokumente nimmst du UnprocessedDocuments und durchläufst die erhaltene Collection dann...
Dim session As New NotesSession
Dim dbThis As NotesDatabase
Dim coll as NotesDocumentCollection
Dim doc As NoptesDocument
Set dbThis = session.CurrentDatabase
Set coll = dbThis.UnprocessedDocuments
If coll.Count > 0 Then
Set doc = coll.GetFirstDocument
While not doc Is Nothing
'...
Set doc = coll.GetNextDocument( doc )
Wend
End If
... so auf die schnelle...
Toni