Autor Thema: Dokument kopieren  (Gelesen 959 mal)

Offline Fbaum

  • Aktives Mitglied
  • ***
  • Beiträge: 220
  • Geschlecht: Männlich
  • Homer for ever !
Dokument kopieren
« am: 24.10.02 - 08:01:01 »
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...

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:Dokument kopieren
« Antwort #1 am: 24.10.02 - 09:00:39 »
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
« Letzte Änderung: 24.10.02 - 09:01:51 von Axel »
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:Dokument kopieren
« Antwort #2 am: 24.10.02 - 09:02:48 »
... 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
Grüßle Toni :)

Offline Fbaum

  • Aktives Mitglied
  • ***
  • Beiträge: 220
  • Geschlecht: Männlich
  • Homer for ever !
Re:Dokument kopieren
« Antwort #3 am: 24.10.02 - 09:33:17 »
Hallo,
funktioniert wunderbar...
Bis auf den kleinen Tipfehler (dod...)
Danke vielmals...
Gruß FBaum
 :D

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz