Hallo zusammen,
Habe eine Script erstellt welches alle Out of Office Agenten ausliest.
Nun es klappt eigentlich nicht schlecht nur habe ich ein kleines Problem.
Gewisse OOO sind Eingeschaltet aber ich erhalte die rückmeldung das diese Ausgeschaltet sind. Bei anderen OOO erhalte ich die Meldung das diese Eingeschaltet sind aber wenn ich den OOO kontrolliere ist dieser Ausgeschaltet.
Es sind von 1000 Mailfile nur 10 die nicht stimmen, aber eben 10 sind 10 zuviel die nicht stimmen.
Was mache ich falsch?
Hir noch das Script.
Sub DataServer()
On Error Resume Next
Dim reportsession As New NotesSession
Set reportdb = reportsession.CurrentDatabase
counter=0
'Alle Dokumente aus der Datenbank löschen
Call Loeschen()
'Bestimmen des Current Server
CurrentServer="Mein Server"
Dim scandbdir As New NotesDbDirectory(CurrentServer)
'Ueberprüfen der Datenbanken
Print"Ueberprüfen der Out of Office"
Set scandb = scandbdir.GetFirstDatabase(DATABASE)
While Not(scandb Is Nothing)
Set scandb2 = New NotesDatabase(CurrentServer,scandb.filepath)
If Left(scandb.FilePath,4) = "mail" Then
Set ProfilDoc= scandb.GetProfileDocument("OutOfOfficeProfile")
'Schreiben des Report
Set reportdoc = New NotesDocument (reportdb)
reportdoc.FirstDayOut = ProfilDoc.GetItemValue("FirstDayOut")(0)
reportdoc.FirstDayBack = ProfilDoc.GetItemValue("FirstDayBack")(0)
reportdoc.TableCurrentStatus=ProfilDoc.GetItemValue("$TableCurrentStatus")(0)
reportdoc.BookBusyTime = ProfilDoc.GetItemValue("BookBusyTime")(0)
If ProfilDoc.GetItemValue("CurrentStatus")(0) ="0" Then
reportdoc.CurrentStatus ="Eingeschaltet"
Else
reportdoc.CurrentStatus ="Nicht Bekannt"
End If
If ProfilDoc.GetItemValue("CurrentStatus")(0) ="1" Then
reportdoc.CurrentStatus ="Ausgeschaltet"
End If
reportdoc.Form = "Database Template Report"
reportdoc.Title = scandb.Title
reportdoc.Path = scandb.FilePath
reportdoc.Name = scandb.FileName
Call reportdoc.Save (True, True)
counter = counter + 1
End If
Set scandb = scandbdir.GetNextDatabase
Wend
'Schlussmeldung
Print "Ueberprüfung beendet"
endmessage% = Messagebox("Server überprüfung abgeschlossen. "+Cstr(counter)+" Datenbanken aufgezeichnet.",0+64+0+0,"Template Reporter - Überbrüfung beendet")
End Sub
