Agent bringt undefinierten Fehler

Hallo zusammen,

nun brauch ich mal wieder ein wenig eure Hilfe.
Bin grad dabei mein Abschlussprojekt fuer meine Pruefung zu programmieren. Hierfuer benoetige ich einen Agenten, der fuer mich nach Abwesenheiten in einer Datenbank sucht. In einer Teilfunktion des Agenten erfolgt komischerweise ein Fehler.
- Der Agent soll gestartet werden, wenn eine Mail eingetroffen ist.
- Der Agent funktioniert, wenn ich ihn manuell ausfuehre

Function getAbsence(db2 As NotesDatabase) As NotesDocument
	On Error Goto handler
	Print "getAbsence"
	Dim dc				As NotesDocumentCollection
	Dim doc 			As NotesDocument
	Dim db 				As NotesDatabase
	Dim s 				As New NotesSession
	Dim view			As NotesView
	Dim doc2 			As NotesDocument
	Dim owner		As NotesName
	Dim owner2		As NotesName
	Print "deklaration"
	Set db				= s.CurrentDatabase
	Set doc2			= db.GetProfileDocument("CalendarProfile")
	Set view 			= db2.GetView("(activeAbsence)")
	Set doc 				= view.GetFirstDocument
	Set owner 			= s.CreateName(doc2.owner(0))
	Print "setting"
	While Not(doc Is Nothing) 
		Set owner2 	= s.CreateName(doc.dl_mitarbeiter(0))
		Print "if"
		If owner.Common = owner2.Common Then
			Print "YES!!!! it's true!"
			Set getAbsence = doc
			Set doc = Nothing
		Else
			Set doc		= view.GetNextDocument( doc )
		End If
	Wend
handler:
	Print "Got error " & Error$ & " on line " & Cstr(Erl)
End Function

Soweit der Code.
Die Prints habe ich eingebaut um im Log zu sehen wo er aussteigt..
Hier nun das Log:

Zitat

05.04.2007 10:16:20 AMgr: Agent ('Agent' in 'Database') gibt aus: getAbsence
05.04.2007 10:16:20 AMgr: Agent ('Agent' in 'Database') gibt aus: deklaration
05.04.2007 10:16:21 AMgr: Agent ('Agent' in 'Database') gibt aus: setting
05.04.2007 10:16:21 AMgr: Agent ('Agent' in 'Database') gibt aus: if
05.04.2007 10:16:21 AMgr: Agent ('Agent' in 'Database') gibt aus: if
05.04.2007 10:16:21 AMgr: Agent ('Agent' in 'Database') gibt aus: if
05.04.2007 10:16:21 AMgr: Agent ('Agent' in 'Database') gibt aus: YES!!!! it's true!
05.04.2007 10:16:21 AMgr: Agent ('Agent' in 'Database') gibt aus: Got error on line 0

Alles anzeigen

Hoffe ihr habt eine Idee, woran das liegen koennte bin langsam echt am Ende.. oO

Au mann, irgendwann sieht man den Wald vor lauter Baeumen nicht mehr

Danke Carsten!

Aber ich frag mich, warum er dann seine Dienste nicht vollrichtet.. naja ich guck erstmal was der Server nun schoenes macht

Nun laeuft alles!

Vielen Dank an alle!