Hi,
füge in die Aktion folgendes Script ein.
Dim archiveDb As NotesDatabase( "", "" )
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set dod = uidoc.Document
Set archiveDb = New NotesDatabase("Server", "Datenbank")
Call doc.CopyToDatabase( archiveDb )
Die Parameter Server und Datenbank musst du an deine Gegebenheiten anpassen.
Axel