Domino 9 und frühere Versionen > Entwicklung

Agent stoppt um Mitternacht!??

<< < (2/2)

Gerardo50:
..ach ja klar... aber zu meiner Schande muß ich gestehen dass meine Script Kenntnisse nur sehr rudimentär vorhanden sind  :-[

...warum funktioniert also der folgende Code nicht um von einer anderen Datenbank aus die view "Mail" der Exchange.box zu öffnen  ???

Dim db As NotesDatabase
   Dim db1 As New NotesDatabase( "", "" )
   Dim view As NotesView
   Dim col As notesdocumentcollection
   Dim doc As notesdocument
   Dim vc As NotesViewEntryCollection   
   Dim session As New NotesSession
   Dim anz As Integer ' # of docs in view
   Set db1 = New NotesDatabase( "", "Exchange.box" )
   Call db1.Open( "", "" )
   Set db = session.CurrentDatabase
   Set view = db1.GetView("Mail") ' get view from Exchange.box

bei der letzten Zeile steigt der Agent mit einer Fehlermeldung aus (Database Exchange.box has not been opened yet)

Sorry für mein Unwissen, ich gelobe zu üben....

Gerhard

Gandhi:
Schau Dir im Debugger mal an, ob db1 gefunden wurde. An sich sieht das Script sauber aus.
Von wo startest Du das Script: Wenn Du es vom Client startest musst Du natürlich den Server angeben - sonst sucht er lokal nach exchange.box.

Gerardo50:
 :) Danke, das war´s  :)

Für alle die es mal brauchen können hier also das Script:

Dim db As NotesDatabase
   Dim db1 As New NotesDatabase( "", "" )
   Dim view As NotesView
   Dim col As notesdocumentcollection
   Dim doc As notesdocument
   Dim vc As NotesViewEntryCollection   
   Dim session As New NotesSession
   Dim anz As Integer ' # of docs in view
   Set db1 = New NotesDatabase( "Graz1/AT/UCB", "Exchange.box" )
   Set db = session.CurrentDatabase
   Dim LogObj As New NotesLog("Report record")
   Call LogObj.OpenNotesLog( db.server, "Exch-Log.nsf" )  ' open log file
   Set view = db1.GetView("Mail") ' get view from Exchange.box
   Set vc = view.AllEntries ' all documents in view
   anz=vc.count ' count documents in view
   If (anz > 49  And anz < 55) Then
      Dim mail As NotesDocument
      Set mail = New NotesDocument( db )
.......

Nochmals lieben Dank für die prompte Unterstützung und einen schönen Tag!  :D

Gerhard

Gandhi:
Im Querysave ein uidoc.gototop und ein uidoc.gotobottom einfügen - dann springt er vor dem Speichern auf jeden Fall aus dem Feld.

Navigation

[0] Themen-Index

[*] Vorherige Sete