Also hier noch ein paar mehr Infos. Es soll eine Gemeinsame Aktion sein die auf etwa 50 Ansichten angezeigt wird. Die Ansichten sind natürlich alle unterschiedlich sortiert und die Dokumente sind auch unterschiedlich. Sind also mit verschiedenen Masken erstellt worden. Die Entwicklerin dieser Datenbank hat Copy and Paste verboten. Ich soll nun Copy and Paste wieder erlauben. Die Entwicklerin meinte dass es dann zu Inkonsestenzen komme. Man müsse nach dem Kopieren sofort das neue Dokument öffnen und wieder speichern um dies zu vermeiden. Und ich wollte noch gern in einem Namensfeld "Kopie von " & alterName rein schreiben um die Kopie erkenntlich zu machen. Verstehe nicht wie ich das kopierte Dokument schon haben soll. Meiner Meinung nach hab ich nur das Original. Hier mal mein Code bisher:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
If collection.count > 1 Then
Messagebox "Es sollte immer nur ein Dokument auf einmal kopiert werden.", 64, "Hinweis"
Exit Sub
End If
Set doc = collection.GetFirstDocument()
Call doc.copyToDatabase(db)
Set collection = db.search()