CopyToDatabase-Methode verursacht Fehler

[Gravedigger]

Hallo,

das folgende Skript gibt bei jedem Durchlauf den Fehler "Notes error: invalid or nonexistent document" aus.

>>>START<<<
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Dim i As Integer

Set db = session.CurrentDatabase
Set doc = session.DocumentContext

If doc.IsNewNote Then
 For i = 0 To Ubound(doc.fdDestination)
  Set newdoc = doc.CopyToDatabase(session.CurrentDatabase)  <- Fehler kommt hier
  newdoc.fdDestination = doc.fdDestination(i)
  Call newdoc.Save(False, True)
 Next
End If
>>>ENDE<<<

Kennt jemand diesen Fehler, bzw. wie kann ich diesen beheben?


Danke
Max

[Glombi]

Wo steht denn der Code? In einem Agenten? Ist das eine Web Anwendung?

Ansonsten funktioniert das DocumentContext nicht und das doc ist Nothing.

Das doc würde ich mir anders holen.

Andreas

[Gravedigger]

Oh, sorry hatte ich ganz vergessen.

Das Ganze läuft in einem Agent, im WebQuerySave, in einer Web-Anwendung.

In dem "doc" ist was drin.

[Glombi]

Das ganze soll für IsNewNote passieren, d.h. das Dokument ist wohl noch nicht im Backend bekannt und kann daher nicht kopiert werden.
Eine andere Erklärung hätte ich momentan nicht.
Du solltest ein
call doc.Save(true,true,true)
voranstellen, falls das möglich ist.

Oder Du machst anstelle von CopyToDatabase ein neues Dokument
set newdoc = db.CreateDocument
und dann ein CopyAllItems.

Andreas

[Gravedigger]

Das Dokument wird vorher mit "@Command([FileSave])" schon gespeichert, oder nützt das nichts?

NACHTRAG: Auch ein "Call doc.Save(True, True, True)" bringt nichts.

[Gravedigger]

Ich nehm jetzt CopyAllItems, da geht's.