Hallo !
Ich möchte mit dem folgenden Script testen, ob in einem Verzeichnis auf dem
Server eine bestimmte Datei vorhanden ist ! Der Agent läugt zeitgesteuert auf dem
Server:
Sub Initialize
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc = session.CurrentDatabase.CreateDocument
Dim sourcefile As String
'Prüfe ob Datei da ist
sourcefile = "D:\DOMINO\DATA\OPAL\OpalOH.nsf" 'Dateiname auf Server
If Dir$(sourcefile,0) = "" Then
'Falls Datei da ist:
doc.SendTo ="EMPFÄNGER"
doc.Subject = "Krueb.TXT vorhanden !!!"
doc.Form = "Memo"
Call doc.Send(False)
Else
'Falls Datei nicht da ist:
doc.SendTo ="EMPFÄNGER"
doc.Subject = "Krueb.TXT nicht vorhanden !!!"
doc.Form = "Memo"
Call doc.Send(False)
End If
End Sub
Als Feher auf der Konsole erhalte ich:
Operation is disallowed in this session !
Wer kann mir helfen ?
