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

OoO-Agenten Laufzeiten anzeigen lassen???

<< < (4/4)

Axel:
... und was macht ihr bei mehr als 1000 Mail-Datenbanken?

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As New NotesDatabase ("", "")
   Dim dbdir As New NotesDbDirectory("ServerName")
   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 = 999 Goto ende
      If Lcase (Left(db.FilePath,5)) = "Verzeichnis" Then  
         Call db.Open( "", "" )
         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"
End Sub


Ich denke so passt's eher.

Axel

Norton:
Hallo Axel,

danke für den Hinweis. Ich denke ich nehme die Anpassungen noch vor. Die 999 hatte ich selbst eingesetzt, da wir bei uns die Mail-Datenbanken in verschiedene Verzeichnisse aufgeteilt haben und maximal 500 Datenbanken pro Verzeichnis hinterlegt sind.

Ohne Counter machts sicherlich mehr Sinn.

Dankeschön.

Gruß
Thomas

Navigation

[0] Themen-Index

[*] Vorherige Sete