This script creates a new document in the current database, sets its Form and Body items, and saves it. If a user opens the document in the user interface, Notes uses the Status form to display it (if a form by that name exists in the current database).
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument ( db )
doc.Form = "Status"
doc.Body = "Client meeting postponed."
Call doc.Save( True, True )
Wenn du was aus nem Feld auslesen willst muss das so aussehen: "doc.FeldA(0)" <- erster Wert
In deinem Beispiel also so:
newdoc.Feld1 = doc.FeldA(0)
…
if Not DocIsModified Then Exit Sub
'if the doc is new or modified
Dim doc as NotesDocument
Dim s as New NotesSession
dim db as NotesDatabase
dim newdoc as NotesDocument
set doc = Source.Document
set db = s.CurrentDatabase
set newdoc = db.CreateDocument
call newdoc.ReplaceItemValue( "Form", "<Formname>" )
call newdoc.ReplaceItemValue( "Feld1", doc.getItemValue( "FeldA" ) )
call newdoc.ReplaceItemValue( "Feld2", doc.getItemValue( "FeldB" ) )
…
Call newdoc.Save( true, true, true)
…
Wenn du genau beschreibst was du machen willst, bekommst du sicher noch mehr hilfe
Chris
Das Problem ist nur das es ein paar Dokumente später sind.
Für ne history dauernd neue Dokumente anlegen? Warum dass den? Du kannst doch einfach Felder mit Mehrfachwerten machen. Eins für das Datum, eins für den Änderungs-Author und eins für die Action.
...
Vllt. ist das ja auch eine Lösung :) (also ich würde das so machen)
Mal ne blöde Frage, aber sind Do Schleifen nicht dafür bekannt dass sie ihr Run-Statement am Ende tragen?
-----------------------
Noch ne Sache: bist du sicher dass er den Document Index neu aufbaut? Müsstest du dazu nicht erst die View refreshen, oder geht dass auch so? :-: Sauberer wärs glaubich mit ner "NotesDocumentCollection" bzw. "NotesViewEntryCollection". Schaus dir doch mal an!
(Kann natürlich sein dass ich mich überall Irre, aber dann hätte ich wenigstens wieder was neues dazugelernt ;))
Bitte nicht böse sein, ich habs nur gut gemeint :knuddel: :love:
Ich finde es ungünstig, einen Agenten mit Dokumenten aus einer View zu bestücken und diese dann in jeder Schleife den Index neu aufzubauen. Die Admins hassen einen gerne für so etwasKann ich nur bestätigen ...
Read-write. Indicates whether a view is automatically refreshed by the currently running code when a navigation method touches an update (addition, deletion, or change) to the database that occurred after view creation or the last refresh.