Hallo,
Ich hab einen Agent:
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim mdb As NotesDatabase
Dim mview As NotesView
Dim view As NotesView
On Error Goto ErrorMsg
Set db = s.CurrentDatabase
Set mdb = s.GetDatabase("MISEBG01DS/SVR/MISEBG","mail\wmassen.nsf")
If mdb Is Nothing Then
Print db.Title + ": Das Domino Verzeichnis konnte nicht geöffnet werden!"
Exit Sub
End If
If Not mdb.IsOpen Then
Call mdb.Open("", "")
End If
If mdb.IsOpen Then
Print db.Title + ": Die Datenbank wurde geöffnet!"
End If
Set mview = mdb.GetView("($Inbox)")
Exit Sub
ErrorMsg:
If Err = 4060 Then Resume Next '''' cannot open database - no access
If Err = 91 Then Resume Next '''' cannot open database ... Folgefehler -> Object variable not set
ErrorMessage = " ERROR " & Err & " at line " & Str$(Erl) & ": " & Error$
Print ErrorMessage
Resume Next
End Sub
der auf einem Server läuft und wenn ich den von hand starte dann geht er auf einen anderen Server ( auch andere Notes Domain) und er funktioniert. Wenn ich dann den Agent aber scheduled laufen lassen möchte dann bekomm ich immer den Fehler:
12/21/2005 12:57:15 PM AMgr: Agent ('dc Import Picture' in 'Applications\Intier\IT\WebcamMa.nsf') error message: Database MISEBG01DS!!mail\wmassen.nsf has not been opened yet
Woran kann das liegen?
Ich denke wenn ich ihn von Hand starte dann hab ich mehr rechte als wenn der Server den Agent starten möchte. Ich hab den Agent auch schon in der db die er öffnen soll als Server und Manager eingetragen.
Bitte um Hilfe,
danke Robert