Zugriff auf Body-Feld

[Joker]

Hi,
habe in eine Maske (Kontakte im persönlichen Adressbuch) ein neues Feld "Body" (RichText-Feld) eingefügt. Nun möchte ich per Script Werte in dieses Feld eintragen. Das mit dem eintragen von Werten würde ja auch ohne Probleme funktionieren. Doch ich kann nicht auf das neu eingefügte Body-Feld zugreifen, da dieses ja erst beim erneuten Abspeichern eines Dokumentes vorhanden ist.
Ich suche nun eine Möglichkeit, alle Dokumente in einer Ansicht bzw. alle Dokumente in der Datenbank neu abzuspeichern.
Ich krieg das einfach nicht per Script oder Formel hin. Nur wenn ich das Dokument manuell öffne und auf "Speichern und schließen" gehe, wird das Body-Feld "initialisiert".
Mit dem Script hatte ich einmal folgenden Ansatz verfolgt:

Set ws = New NotesUIWorkspace
Set db = New NotesDatabase("S1DX01","names_pest.nsf")
Set session = New NotesSession
Set view = db.GetView("People")
   
Set notefound = view.GetFirstDocument
   
   While Not (notefound Is Nothing)
   Call notefound.Save(True,False)
   Set notefound = view.GetNextDocument(notefound)
   Wend

Manuell ist die Abspeicherung leider nur schwer durchführbar, da es über 2500 Dokumente wären.
Hoffentlich kann mir ja jemand helfen und mir sagen wie ich das am besten bewerkstellige.

Gruss
Martin

[Axel]

Hi,

versuch's mal so:

Set ws = New NotesUIWorkspace
Set db = New NotesDatabase("S1DX01","names_pest.nsf")
Set session = New NotesSession
Set view = db.GetView("People")
   
Set notefound = view.GetFirstDocument
   
While Not (notefound Is Nothing)
   Call notefound.ComputeWithForm(True,False)
   Call notefound.Save(True,False)
   Set notefound = view.GetNextDocument(notefound)
Wend


Vielleicht hilfts was.

Axel

[Joker]

@Axel,
danke fjür deine schnelle Antwort. Habe mein Problem auf andere Art und Weise gelöst. Ich erstelle nun einfach per Script ein neues RText-Feld. Werde deinen Lösungsvorschlag jedoch ausprobieren, da ich das Problem in Zukunft sicherlich wieder haben werde.

Gruss
Martin