Hi nochmal,
das ist der Code der im QueryOpen nicht funktioniert.
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim origdoc As NotesDocument
Set db = s.CurrentDatabase
Set doc = Source.Document
Dim op As String
If doc.HasItem("ORIGINALID") Then
If Not doc Is Nothing Then
op = doc.GetItemValue("ORIGINALID")(0)
If op <> "" Then
Set origdoc = db.GetDocumentByUNID(op)
Call ws.EditDocument(True, origdoc , False,,False)
Continue = False
End If
End If
End If
Hab ihn nun verschoben in den PostOpen und Continue = False mit Source.Close
ausgetauscht. Das Öffnen der Originaldokuments funktionert nun. Auf diese Weise leidet zwar die Performance, aber es Funktioniert.
Danke auch allen.