Error 4063

[Fanker]

Hallo,

bei diesem Aufruf erhalte ich den Fehler: Error 4063 Database has not been opened yet

<sup>Function Mail()
   Dim dbverz As NotesDbDirectory
   Dim verz As String
   
   Dim session As New NotesSession
   Dim dbmail As NotesDatabase
      
   
   verz = "SERVERMAIL"
   Set dbverz = New NotesDbDirectory(verz)
   Set dbmail = dbverz.GetFirstDatabase( Database )
   Set dbmail = session.CurrentDatabase

   

   Do While Not (dbmail Is Nothing)
      On Error Resume Next

      If Left(dbmail.Filepath,5) = "mail\" Then
         On Error GoTo err_Dbmail
         
         Dim dbcol As NotesNoteCollection
         Dim dbdoccol As NotesDocumentCollection
         Dim dbdoc As NotesDocument
         
         Set dbdoccol = dbmail.GetProfileDocCollection()</sup>



Domino 8.5.2FP3
Domino Administrator mit allen rechten.

Was mache ich falsch? Ich möchte alle Profildokumente durchlaufen, sofern
vorhanden.

[WildVirus]

Hallo Namenloser ,

wie wäre es mit einem vernünftigen Errorhandling ?

Hast Du überhaupt die Rechte auf die DB ?

Bei welcher DB tritt der Fehler auf ?

Und bevor Du mit

Code

Do While Not (dbmail Is Nothing)

auf eine DB losgehst, solltest Du vorher prüfen, ob überhaupt eine geöffnet wurde.

Was passiert, wenn der Agent mit den Rechten des Domino läuft ?

Und ich verstehe nicht, warum Du erst 

Code

Set dbmail = dbverz.GetFirstDatabase( Database )

und dann noch 

Code

Set dbmail = session.CurrentDatabase

machst. Welche DB willst Du jetzt prüfen ?

CU,
Axel

[Ralf_M_Petter]

In welcher Zeile erhälst du den Fehler? Auf welcher Plattform? Am Server oder am Client? Fragen über Fragen...

Was aber komisch erscheint ist folgener Absatz:

Set dbmail = dbverz.GetFirstDatabase( Database )
Set dbmail = session.CurrentDatabase


Warum setzt du zuerst dbmail nur um es in der nächsten Anweisung wieder zu überschreiben?

Grüße

Ralf

[Fanker]

Ich habe als Domino Administrator den Agenten über Debugger gestartet.
Ich möchte alle 'Mail'-DB's durchlaufen, welche im Verzeichnis Mail\ stehen
alle anderen sollen übersprungen werden.

Ich habe angenommen, dass ich nachdem eine db gefunden wurde, eine Notesession für die weitere Verarbeitung erforderlich ist. Vielleicht liegt ja hier schon das Problem?

Die Fehlermeldung kommt bei der Zeile

Set dbdoccol = dbmail.GetProfileDocCollection()

und wird durch

<sup>On Error GoTo err_Dbmail

err_Dbmail:
  Print("Fehler: " & CStr(Err) & " " &  Error$)
  Resume Next</sup>


aufgefangen, Daher habe ich die Fehlermeldung.

Danke für die Unterstützung

 

[WildVirus]

Hast Du denn Zugriff auf die Mail-DBs der Mitarbeiter ?

Unsere Admins würden standrechtlich erschossen, wenn sie das einfach so machen würden !

[Peter Klett]

Wenn Du Dir das mit dem Debugger anschaust, würde ich das Errorhandling auskommentieren, dann siehst Du sofort, wo es hängt.

[koehlerbv]

Abgesehen von den anderen Mängeln des Codes, die schon genannt worden sind: Die eigentliche Fehlermeldung hier kommt durch falsche Deklaration der NotesDatabase zustande. Es muss sein:
Dim dbMail As New NotesDatabase ("", "").

Bernhard

[umi]

Hallo

Ich tippe jetzt mal auf das GetFirstDatabase()

The first database, of the specified fileType%, located in the directory. The database is closed. To open it, use the Open or OpenIfModified method in NotesDatabase.

[HH]

Hallo,

abgesehen vom eigentlichen Code...

Datenbanken, auf die über NotesDbDirectory zugegriffen wird, sind per default nicht geöffnet (s. Debugger: isopen = false). Es stehen dann nur sehr wenige Eigenschaften zur Verfügung.

Also erst expliziert öffnen und dann auf Dokumente zugreifen.

Hubert