Hi
Ich habe einen Script Agenten geschrieben der aus einem Feld im Adressbuch das Geburtsdatum einer Person lesen soll und wenn diese Person Geburtstag hat an diese Person eine Mail schicken soll.
Wenn ich den Agenten aus dem Menü starte dann funktioniert er einwandfrei, wenn er aber periodisch gestartet werden soll dann passiert erstmal nichts, aber im Protokoll steht nacher "Unknown Script Error" und der Agent ist damit nicht gelaufen.
Weiss jemand wo der fehler liegt ?
Hier ist der Script Code der von dem Agente ausgeführt wird:
Sub Initialize
On Error Resume Next
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim Doc As NotesDocument
Dim Doc_BirthD As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView( "People" )
Set Doc = view.Getfirstdocument
Do Until Doc Is Nothing
If doc.Form(0) = "Person" And doc.Birthday(0) <> "" Then
If Day(Now) = Day(doc.birthday(0)) And Month(Now) = Month(doc.Birthday(0)) Then
Set Doc_BirthD = db.CreateDocument
Doc_BirthD.form ="BDay"
Doc_BirthD.SendTo = "Achim Guntermann"
Call Doc_BirthD.send (True)
End If
End If
Set Doc = view.GetnextDocument (doc)
Loop
End Sub
