Lesernachweis erstellen - aber wie ?

    HAllo Forumsuser,


    ich möchte in einem Dok einen Lesernachweis erstellen.
    Ich hatte mir das wie folgt gedacht:


    In einer MAske habe ich das unsichtbare Text-Feld "Readers"
    Eigenschaft = Bearbeitar und folgende Formel hinterlegt:
    @Name([CN];@UserName) +" Datum: "+@Text(@Now)


    Dann habe ich noch eine Teilmaske mit dem gleichen Feld "Readers"


    Die Teilmaske rufe ich mit einem Button auf und schon kann ich den Leser des Dokuments ablesen.


    Nur hat die Geschichte einen Fehler. Wer auch immer das Dok öffnet sieht nur sich als Leser, d.h. der Feldwert wird immer überschrieben.
    Ich möchte aber eine schöne lange Liste mit Lesern.


    Dann habe ich ein zweites Textfeld "Readers2" erstellt.


    Ich würde gerne bei dem Ereignis Querysave den Feldinhalt(Text) aus dem Feld Readers in dem Feld Readers2 anfügen.



    Ich weiß allerdings nicht wie ich das in Notes Script machen soll.


    es scheind keine Funktion append Text zu geben.


    Ich bin für jeden Lösungsansatz dankbar.


    Gruss
    Bernd99 :)

    Versuchs mal so:


    Ein Feld (unsichtbar wie bei dir)
    Als Feldinhalt folgende Formel:
    FIELD Feldname:=Feldname;
    alt:=Feldname (Kopie des alten Werts);


    alt+@Name([CN];@UserName) +" Datum: "+@Text(@Now)



    Habs nicht getestet, also ohne Gewähr.


    Wenn es funktioniert müsstest du noch irgendein Trennzeichen zwischen alt und dem Rest eintragen damit es lesbar bleibt.

    In der NotesItem Klasse gibt´s appendtoTextList.
    In Formelsprache:
    Field feldname := feldname:@Name([CN];@UserName) +" Datum: "+@Text(@Now)
    Also einfach eine Liste bauen; Listentrennzeichen ist der Doppelpunkt

    Hallo und danke,


    ich hatte in der Notes Hilfe dann auch FieldAppendText gefunden.
    Die Suchfunktion in der Hilfe ist echt Schei......... !


    Ich habe mein Problem dann so gelöst:


    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument

    Dim item As NotesItem

    Set uidoc = workspace.CurrentDocument
    Set note = uidoc.Document
    Dim r As Variant
    Dim session As New notessession
    Set uidoc = workspace.CurrentDocument


    Call uidoc.FieldAppendText ( "Readers2", " ; "& session.CommonUsername & " "& Cstr(Date()&" - "&Cstr(Time())))



    So kann ich direkt den User das Datum und die Zeit anfügen.


    Gruss
    Bernd99
    :lol: