Domino 9 und frühere Versionen > Entwicklung

Agent - öffnen und wieder speichern

<< < (2/2)

eknori:
wie wäre es denn mit @Command([ToolsRefreshSelectedDocs]); ??

Axel:
Hi,

so was hab ich vor kurzem erst gebraucht.

Hier ist das Teil:


--- Zitat ---Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim workspace As New NotesUIWorkspace


Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments

Set doc = collection.GetFirstDocument
   
While Not (doc Is Nothing)
  Set uidoc = workspace.EditDocument( True, doc)
  Call uidoc.Save
  Call uidoc.Close
      
  Set doc = collection.GetNextDocument(doc)
Wend  'While Not (doc Is Nothing)


--- Ende Zitat ---

Pack den Code in einen Agenten und setze die Option "Für ausgewählte Dokumente".

Axel

harkpabst_meliantrop:
Jepp! Diesen Agenten (unter anderem) packe ich (mit ner Entwicklerrolle vor Missbrauch geschützt) erstmal in jede neue Datenbank, wenn ich ein Projekt anfange. Extrem praktisch.

edit:
Ups, wieder mal zu lange das Fenster aufgehabt. Bezog sich ebenfalls auf Eknoris Posting ...

Gandalf:
Thx @all
Enknoris weg war für mich der einfachere
da ich ein Scriptdau bin
werd es aber auch ohne Zeitdruck mal an der Datenbank testen

Bye
gandalf
DerjetztinRuheFeierabendmachenkann :-)

Navigation

[0] Themen-Index

[*] Vorherige Sete