Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Raven am 17.02.03 - 16:42:30
-
Hallo,
ich brauch einen Agenten, der bei seiner Ausführung alle Dokumente in der aktuellen Ansicht öffnet, in den Bearbeiten Modus setzt, speichert und schließt.
Geht das irgendwie ?
Gruß
Raven
-
Hallo Raven,
ja ich denke das müsste gehen.
Das mit dem Edit muß ich nochmal nachschauen,
ist das dringend ?
Probiers dies mal aus und gib mir eine Rückmeldung
REM Dokument-Zugriff über NotesView...
Dim uiws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As New NotesDatabase
Dim view As New NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = ws.CurrentView' ...View aus Frontend
While Not doc is Nothing
Set doc = uidoc.Document
doc.Subject = "Neuer Inhalt"
Call doc.Save(False,True)
Set doc = view.GetNextDocument( doc ) 'das nächste Dokument
Wend
Ciao
Don Pasquale
ps: Das hab ich alles hieraus
http://www.anton-tauscher.de/LotusScript/startdyn.htm
-
@Don
... ist der Code tatsächlich 1:1 von mir - der stimmt so auf keinen Fall...
Set doc = uidoc.Document
... muß heißen
Set doc = view.getFirstDocument
... und muß vor While Not doc Is Nothing...
... würde man das Dokument öffnen, neu berechnen, speichern und wieder schließen wollen, dann muß vor Set doc = view.GetNextDocument(doc)
Set uidoc = uiws.EditDocument(True , doc)
Call uidoc.Refresh
Call uidoc.Save
Call uidoc.Close
... ich habe das jetzt nicht ausprobiert, aber so sollte es gehen...
ata
-
@Don
... ist der Code tatsächlich 1:1 von mir - der stimmt so auf keinen Fall...
Bist Du nur bescheiden oder war das ernst gemeint ?
don pasquale
-
ich brauch einen Agenten, der bei seiner Ausführung alle Dokumente in der aktuellen Ansicht öffnet, in den Bearbeiten Modus setzt, speichert und schließt.
Geht das irgendwie ?
versuchs hiermit : @Command([ToolsRefreshAllDocs]);
genau dein ding
gruss
-
@Don
... das hat mit Bescheidenheit weniger zu tun, wenn der Code so im Kurs hinterlegt ist, sollte ich ihn korrigieren...
... weißt du noch wo der so steht?...
ata
-
Danke die @Formel hat funktioniert
Gruß
Raven