Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

OoO-Agenten Laufzeiten anzeigen lassen???

<< < (2/4) > >>

Peter Klett:
If Left(db.FilePath,4) = "Verzeichnis" Then  

an dieser Bedingung bricht schon alles ab

Left(db.FilePath,4) sind die ersten 4 Zeichen des Dateipfades, und die können niemals "Verzeichnis" sein (denn das sind mehr als 4 Zeichen). Da Du ja MailDatenbanken durchsuchen willst, soll es wohl

If Left(db.FilePath,4) = "mail" Then

heißen. Ich würde dann auch noch ein Lcase verwenden

If Lcase (Left(db.FilePath,4)) = "mail" Then

EDIT: Und warum brichst Du bei mehr als 100 Datenbanken ab? Ist das nur zum Test?

Norton:
Hallo zusammen,

erst einmal Danke für die Hilfe. Leider funktioniert es weiter nicht.

Folgenden Code verwende ich derzeit:

Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dbdir As New NotesDbDirectory("Verzeichnis")
   Dim ProfileDoc As NotesDocument
   Dim counter As Integer, fileNum As Integer
   Dim file As String, outStr As String
   
   file = "C:\export.csv"
   fileNum = Freefile()
   Open file For Output As fileNum
   
'Ueberpruefen der Datenbanken
   Print"Ueberpruefen der Out of Office"
   Set db = dbdir.GetFirstDatabase(DATABASE)
   While Not(db Is Nothing)
      If counter = 250 Goto ende
      If Lcase (Left(db.FilePath,5)) = "Verzeichnisname" Then   
         Set ProfileDoc=db.GetProfileDocument("OutOfOfficeProfile")
         
         If Not (ProfileDoc Is Nothing) Then
'Schreiben des Report
            outStr = Cstr(ProfileDoc.GetItemValue("FirstDayOut")(0)) & "," & Cstr(ProfileDoc.GetItemValue("FirstDayBack")(0)) &_
            "," & Cstr(ProfileDoc.GetItemValue("$TableCurrentStatus")(0)) & "," & Cstr(ProfileDoc.GetItemValue("BookBusyTime")(0)) &_
            "," & Cstr(ProfileDoc.GetItemValue("CurrentStatus")(0)) & "," & Cstr(db.Title)
            
            If outStr <> "" Then            
               Print #fileNum, outStr
            End If
            
            counter = counter + 1
         End If
      End If
      Set db = dbdir.GetNextDatabase
   Wend
   
   Close fileNum
   
ende:
'Schlussmeldung
   Print "Ueberpruefung beendet"

Die Verzeichnislänge wird berücksichtigt. Es erscheint nun die Fehlermeldung:

"Database Servername!!Verzeichnis\DBName.nsf has not been opened yet."

Gestartet mit einem User, der Managerrechte auf die Datenbanken hat. Noch eine Idee??

Gruß
Thomas

koehlerbv:
Eine Deklaration ist noch nicht korrekt:

Set db = New NotesDatabase ("", "")

HTH,
Bernhard

Norton:
Hallo Bernhard,

schon einmal danke. Ein paar wenige Fragen bleiben für mich noch offen. Normalerweise würde ich das ja unseren Entwickler fragen, deswegen sei bitte nicht so streng  ;) wenn ich das nun frage:

An welcher Stelle genau muss das eingetragen werden und soll der Befehl genauso lauten, oder muss in der Klammer noch etwas eingetragen werden?

Zuletzt noch, wofür steht HTH??? (Nachtrag: Hier hab ich Google bemüht - Hope this helps - Frage 3 erledigt)  :)

Gruß
Thomas

koehlerbv:
Ich habe Blödsinn geschrieben (obwohl ich ja mit "Deklaration" schon angefangen habe und prinzipiell dieser Code dann auch tut), ich meinte natürlich die geänderte Deklaration:

Dim db As New NotesDatabase ("", "").

Und auch die Angabe in Klammern ist so korrekt - Du erzwingst damit das Initialisieren des NotesDatabase-Objekts.

HTH = hope that helps.

In diesem Sinne,
Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete