Dokument kopieren

[Fbaum]

Hallo,

ich möchte in einer Maske eine Aktion erstellen, die das komplette Dokument (egal ob im Bearbeitungsmodus oder nicht) in eine andere Datenbank kopiert.
Ist das möglich?
Mit den Script das ich habe funktioniert das nicht so wirklich. Bin noch nicht der LS Freak.

Danke FBaum

PS: Würde mich über ein fertiges Script freuen...

[Axel]

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

[ata]

... schau mal in der Hilfe nach. Im NotesDocument-Objekt gibt es eine Methode die heißt CopyToDatabase. Dort liegt im Beispiel ein funktionierender Code...

ata

[Fbaum]

Hallo,
funktioniert wunderbar...
Bis auf den kleinen Tipfehler (dod...)
Danke vielmals...
Gruß FBaum