Domino 9 und frühere Versionen > ND6: Entwicklung

Ein Dokument (Backend) in andere DB kopieren/verschieben

<< < (2/2)

Axel:
Hi,

So geht's:

Dim session As New NotesSession
Dim db AS NotesDatabase
Dim collection As NotesDocumentCollection

Set db= session.CurrentDatabase
Set collection = db.UnprocessedDocuments

...


Axel

sja:
Hallo,

erst danke ich herzlich alle für die Hilfe.
Aber jetzt bekam ich neues Problem, und zwar:

Database mail\mailcopy has not been opendd jet

das Script sieht jetzt so aus:

Sub Initialize
   
   Dim s As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim CopyDB As NotesDatabase
   Dim doc  As NotesDocument
   Dim docKopie  As NotesDocument
   
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   
   Set CopyDB = s.GetDatabase( "", "mail\mailcopy.nsf" )
   Set db = s.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Set doc = collection.GetFirstDocument()
   
   'Messagebox collection.Count
   While Not(doc Is Nothing)
      Set docKopie = doc.CopyToDatabase( CopyDB )
      Set doc = collection.GetNextDocument(doc)
   Wend   
End Sub

Glaube habe ich über das Problem schon hier im Forum gelesen, aber jetzt kann das nicht finden. Vielen Dank für einen Rat bzw. Link ...

Gruesse
Sofia

koehlerbv:
Öffne mal die DB folgendermassen:

Set CopyDB = New NotesDatabase ("", "mail\mailcopy.nsf")

Alternativ (bei bestehenden Code) müsstest Du die Deklaration wie folgt ändern:

Dim CopyDB as New NotesDatabase ("", "")

HTH,
Bernhard

sja:
Hallo Leute,

erst sorry für das falsche Info. Es ist mir eine Fehler unterlaufen: habe für den Test eine DB erstellt, aber in falschem Verzeichnis, und klar die DB könnte nicht geöffnet werden.
Es funktioniert ! mit alle drei Varianten: mit dem ursprünglichen und mit die beide zwei, die ganz nett von Bernhard vorgeschlagen wurde.
Bernhard hat mir damit sehr geholfen, da wenn ich seine Vorschläge ausprobierte, und das ging nicht, denke ich sofort, dass mit der DB was nicht in Ordnung ist, weil Bernhard gibt immer nur richtige Vorschläge. Und ich habe damit wieder was neues gelernt  :)

Ich danke herzlich alle für eure Hilfe und ... ich liebe dieses Forum!

Gruesse
Sofia

koehlerbv:
Auch wenn ich Deine netten Worte, Sofia, die bei runtergegangen sind wie Honig  ;) jetzt gerne unkommentiert so stehen lassen würde: Nein, auch ich irre, und auch ich habe hier schon falsche Auskünfte gegeben.
Aber ich arbeite daran  ;)

Bernhard

PS: So, wie Du Dich bedankst, freut man sich schon immer auf Deine nächste Frage  :)

Navigation

[0] Themen-Index

[*] Vorherige Sete