Neues Dokument mit Datenübergabe erzeugen

[kruemelmaus]

Hallo zusammen,

ich möchte ein neues Dokument mit Datenübergabe aus dem aktuellen Dokument erzeugen.
Es soll aus einem Personendokument heraus ein Setupletter erstellt werden.

Folgenden Code habe ich versucht:

Sub Click(Source As Button)
   
   Dim session As New NotesSession
   Dim dbthis As NotesDatabase
   Dim docnew As NotesDocument
   
   Set  dbthis = session.CurrentDatabase
   Set docnew = dbthis.CreateDocument
   
   Call docNew.replaceitemvalue ("PLastName","Otto")
   Call docNew.replaceitemvalue ("Form","Person")
   
   Call docnew.Save (True, False)
   
End Sub


Es wird auch ein neues Dokument erzeugt, aber leider nur anbgespeichert. Wie muss ich es ergänzen, das es sich auch öffent um es auszudrucken. 

Gruß

Oliver

[koehlerbv]

Es fehlt
Dim ws As New NotesUIWorkspace
dim uidocThis As NotesUIDocument

und abschliessend (nach oder anstatt - das ist Deine Party - call docNew.Save (True, False, True)
Set uidocThis = ws.EditDocument (True, docNew)

HTH,
Bernhard

[kruemelmaus]

vielen Dank schonmal.
Das hat mich schon gewaltig weitergebracht.

allerdings hab ich jetzt noch das folgende kleine Problem:

Sub Click(Source As Button)
   
   Dim session As New NotesSession
   Dim dbthis As NotesDatabase
   Dim docnew As NotesDocument
   Dim ws As New NotesUIWorkspace
   
   Set  dbthis = session.CurrentDatabase
   Set docnew = dbthis.CreateDocument
   
   Call docNew.replaceitemvalue ("CL_Office",PLastName)
   Call docNew.replaceitemvalue ("Form","CheckListClientInstallation")
   
   Set uidocThis = ws.EditDocument (True, docNew)
   Call docnew.Save (True, False, True)
   
End Sub

Das Feld CL_Office (new Form) soll mit dem Wert aus dem Feld PLastName (aktuelle Form) beschreiben / übergeben werden


Gruß

Oliver

[koehlerbv]

Und wo hast Du die Variable PLastName definiert? Füge Deinem Code in der Options-Sektion folgende Zeile hinzu:
Option Declare

Dann siehst Du, dass da was nicht stimmt. Dann schaue in der Hilfe nach, Sven - wir können hier keinen Basis-Kurs liefern (Deine Frage bzgl. NotesUIWorkspace.EditDocument war aber schon okay!).

Bernhard