Domino 9 und frühere Versionen > ND8: Entwicklung

Error 4063

(1/2) > >>

Fanker:
Hallo,

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

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()



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)
--- Ende Code ---
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 )
--- Ende Code ---
und dann noch 
--- Code: ---Set dbmail = session.CurrentDatabase
--- Ende Code ---
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

On Error GoTo err_Dbmail

err_Dbmail:
  Print("Fehler: " & CStr(Err) & " " &  Error$)
  Resume Next


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 !

Navigation

[0] Themen-Index

[#] Nächste Seite