Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Babo am 22.07.04 - 08:43:09

Titel: Refresh alle Dokumente via Agent
Beitrag von: Babo am 22.07.04 - 08:43:09
Hallo,
Ich bin zu doof, ich möchte doch nur einen Refresh all dockuments machen und das immer Morgens um 01:00 also via einen Agenten der um 1:00 laufen soll. ??? ???

Hat jemand eine Idee wie ich das machen kann mit
SELECT @Command([ToolsRefreshAllDocs]) klapts nicht

vielen Dank :-*
Babo
Titel: Re:Refresh alle Dokumente via Agent
Beitrag von: LuckyMan am 22.07.04 - 08:53:52
Nimmst du Script...


Dim session As NotesSession
Dim db As NotesDatabase   
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Dim view As NotesView


Sub Initialize
   
   Set session = New NotesSession
   Set db = session.currentDatabase
   Set view = db.GetView("View")
   Set doc = view.getfirstDocument
   
   Do Until doc Is Nothing
      Dim success As Variant
      success = doc.ComputeWithForm( False, False )
      Call doc.Save( True, False )
      Set doc = view.getnextDocument(doc)
   Loop
   
End Sub


Hier werden alle Dokumente mit allen Feldern neu gerechnet.

Gruß

Marcus (LuckyMan)
Titel: Re:Refresh alle Dokumente via Agent
Beitrag von: Babo am 22.07.04 - 15:07:11
Hallo

Ja Danke das Ding Fliegt und nun klappts auch mit dem Nachbarn ;D ;D ;D
Thanks
Babo