Domino 9 und frühere Versionen > Entwicklung

Dokumente in eine andere DB verschieben/kopieren

<< < (2/2)

Fbaum:
Also ich hab das Script so eingegeben.  QuellDB, ZielDB, Server u. DBFile habe ich auf meine Sachen abgeändert. Wenn ich nun 2 Dokumente markiere, kopiert er nur ständig das erste Dokument in die andere DB.

rar:
Da kann ich dir leider nicht mehr helfen. Aber schau dirs mal im Debugger an. Vielleicht siehst du dort ja, warum er nur das erste Doc nimmt... :-/

Zimmi:
Hallo Allerseits,

ich habe noch ein etwas geändertes Beispiel, wo am Ende natürlich das Gleiche rauskommt.

Sub Initialize
 dim ws as New Notesuiworkspace
 dim uiview as notesuiview

 Dim session As New NotesSession
 Dim QuellDB As NotesDatabase
 Dim ZielDB As NotesDatabase
 Dim doc As NotesDocument
 Dim newdoc As NotesDocument
 Dim coll As NotesDocumentCollection  


 set uiview = workspace.currentview
 set coll = uiview.documents
 if coll.count = 0 then
     Messagebox"Bitte mindestens ein Dokument auswählten.", 0+64, "Keine Dokumente ausgewählt"
       exit sub
 End if

 For i = i to coll.count
     set doc = coll.getnthdocument(i)
     Set newdoc = doc.CopyToDatabase(ZielDB)
     Call newdoc.PutInFolder("FolderName",True)
     'Call doc.remove(true)
 Next

End Sub


Viele Grüße von
Zimmi

Fbaum:
Danke für Eure Hilfe.
Denke mal, daß ich´s so hinbekommen kann.
Gruß FBaum

Navigation

[0] Themen-Index

[*] Vorherige Sete