Sleep Befehl nicht möglich ???

[Sese]

In einem Agent will ich den Befehl Sleep einbauen !
Hat bisher immer funktioniert. Jetzt bekomme ich jedoch die Fehlermeldung:

Not a Sub or function name: sleep

Hab ich da irgendwo geschlafen, oder irgendetwas verpasst ?

Ich hätte ja Verständnis dafür, wenn mir jemand sagen würde: Was willst Du mit so einer Spielerei !!  
Aber es sollte doch zumindest möglich sein !!!  

Script sieht so aus:

Code

Sub Initialize
     Dim session As New notessession
     Dim db As notesdatabase
     Set db = session.currentdatabase
     Dim view As notesview
     Set view = db.getview("ProdJde") 'Ansicht : Sales Article sortiert nach JDENO
     Dim doc As notesdocument
     Set doc  = view.getfirstdocument     
     Do Until doc Is Nothing
          Call doc.computewithform(True,True)
          Call doc.save(True,True)
          Set doc = view.getnextdocument(doc)
          a=a+1
          Print a
          sleep (1)
     Loop
End Sub

Bitte um Info.

Gruß
SESE

[ata]

... gibts in Notes erst mit Version 5
... in Notes 4 nur mit der Win-API machbar...

ata

[Sese]

Danke.

Zum Glück war der Versuch ein Sleep einzubauen nur ein Test und nicht zwingend erforderlich.

Gruß
SESE

[eknori]

wie ata schon sagte, sleep gibt es erst ab R5 als Notes Funktion

kann dir aber mit

Declare Sub Sleep Lib "kernel32" (Byval dwMilliseconds As Long)

im Declaration Teil deines Codes ein Sleep auch in R4 ermölichen.

eknori