Autor Thema: Refresh alle Dokumente via Agent  (Gelesen 1137 mal)

Offline Babo

  • Junior Mitglied
  • **
  • Beiträge: 68
  • Geschlecht: Weiblich
  • The answer is 42??!!!
Refresh alle Dokumente via Agent
« 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
Client 7.0.3 auf Win XP
Server 7.0.3 auf Win XP

Offline LuckyMan

  • Junior Mitglied
  • **
  • Beiträge: 52
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Re:Refresh alle Dokumente via Agent
« Antwort #1 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)
Gruß

LuckyMan
-------------------------------------------------------

Offline Babo

  • Junior Mitglied
  • **
  • Beiträge: 68
  • Geschlecht: Weiblich
  • The answer is 42??!!!
Re:Refresh alle Dokumente via Agent
« Antwort #2 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
Client 7.0.3 auf Win XP
Server 7.0.3 auf Win XP

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz