Hallo zusammen
in einer Datenbank läuft folgendes Script:
Sub Initialize
Dim session As New NotesSession
Dim db As New NotesDatabase( "", "" )
Dim maildb As NotesDatabase
Dim profildb As NotesDatabase
Dim view As notesview
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim maildoc As NotesDocument
Call db.Open( "Server", "Testordner\log.nsf" )
Set maildb = session.CurrentDatabase
Set view = db.Getview("Database\Sizes")
Set doc = view.GetFirstDocument
If doc.HasItem("Pathname") Then
While Not(doc Is Nothing)
file = doc.GetItemValue("Pathname")(0)
size = doc.getItemValue("DiskSpace")(0)
title = doc.GetItemValue("Title")(0)
send = doc.GetItemValue("Pathname")(0)
Dim subString As String
subString = Leftbp$(file, 4)
subString = Ucase$(subString)
Dim sendString As String
sendString = Rightbp$(send, 9)
sendString = Leftbp$(sendString, 5)
On Error Resume Next
If subString = "MAIL" Then
If size > 200000 Then
Set maildoc = New NotesDocument( db )
maildoc.Form = "Memo"
maildoc.SendTo = "Testuser"
maildoc.Subject = size + " KB " + title
maildoc.body = "Bli-BlaBlub"
Call maildoc.Send( False )
Else
End If
Else
End If
Set doc = view.GetNextDocument(doc)
Wend
End If
End Sub
Wenn ich das Script manuell vom Client aus starte, läuft es Problemlos. Wenn ich auf Periodisch umstelle, will der Agent auf einmal nicht mehr.Ich bin echt ratlos.
Server 5.011
gruß
rubbeldidup
