leider tut.S das auch nicht. Alle anderen Aufgaben des Agenten werden abgewickelt. Der Agent NewCall hat funktioniert. Auch ein Test des Dispatcher brachte keine Fehler.
Also als erstes. NewCall ist Deprecated. Den gibt es nicht mehr in der Version 1.09. Hast du den noch drin dann ist irgendetwas mit der Gestaltungsaktualisierung deiner Datenbank schief gelaufen.
Der Dispatch muss laufen. Schau dir das Protokoll des Agents an ob er überhaupt läuft. (Konfiguration/Agenten(Start/Stop)). da gibt es einen Punkt Last Run: Welches Datum/Uhrzeit steht da?
Dann gibt es in der Neuen Version ein Error Logging, das aber erst einmal eingeschaltet werden muss.
OpenLogEnabled = NO, LOGScriptErrors = YES, ResumeMethod = EXITPOINT. Dann werden Script Fehler in das interne LOG geschrieben.
Sonst kannst du noch in deiner Mail.box nachschauen, da dieses Script die Mails da direkt reinstellt. Vielleicht sind die einfach hängengeblieben weil Adressen falsch sind, oder der User der den Agent gestartet hat hat nicht das Recht Dokumente in der Mail.box zu erstellen. ??Geht das überhaupt??
Wenn du mit dem Debugger drauf gehst und den Agent manuell startest, dann gibt es abhängig von deinen Einstellungen zwei Punkte an denen er halten müsste.
Entweder hier:
' Check if the document should be mailed immediate
If MailInformation = "YES" Then
If MailResponseAsSummary = "YES" Then
' save the content of this document to a list. The field Asubject is used
If Iselement(documentEntryList(newdoc.Universalid)) = False Then
documententrylist(newdoc.UniversalID).doclink = newdoc.UniversalID
Set item = newdoc.GetFirstItem(GetConfigDocByKey("MailIfNewMailResponseBodyFieldName"))
documententrylist(newdoc.UniversalID).docsummary = item.Values
documententrylist(newdoc.UniversalID).doctype = newdoc.formType(0)
End If
Else
' send this document as mail
HIEROK = Spoofmessage(GetConfigDocByKey("sendMailonBehalfof"), Strusername, Nothing,interactivemessages("msgDispatchNotificationMailSubjectSingleMail"),_
interactivemessages("msgDispatchNotificationMailBodySingleMail"),newdoc,"",GetConfigDocByKey("MailIfNewMailResponseBodyFieldName"),True)
End If
End If
oder an dieser Stelle:
' mail the information about the new documents to the users in that list in one block
If Mailinformation = "YES" And MailResponseAsSummary = "YES" Then
Forall UserstoMailto In userdclist
' Create a new document for the purpose of creating the rtitem that is needed. This document will not be saved
Set notification = New NotesDocument(db)
Set richStyle = s.CreateRichTextStyle
Set rtitem = New NotesRichTextItem( notification, "Body")
' Get the list of the documents related to that specific user
Documentslist = Split(UserstoMailTo,"~")
' gather the informations for each document from this ID
For i = 0 To Ubound(Documentslist)
' find the document that has to be used
' put the Information into the body field
Set currentnote = db.GetDocumentByUNID(Documentslist(i))
' define the weblink should be done depending on a configuration document later on
'wMailWeb = |<a href=" http://| + serverURL +|/|+ databasepath+|viwSearchDocumentsByUNID/|+ currentnote.universalid + |" target="fsaMainView">| + documententrylist(Documentslist(i)).doctype + |</a>|
'webMail =|http://| + serverURL +|/|+ databasepath+|/viwSearchDocumentsByUNID/|+ currentnote.universalid + |%20target=%22fsaMainView%22|
' append the found values for form type, status and summary
richStyle.Bold = True
Call rtitem.AppendStyle(richStyle)
Call rtitem.appendtext(documententrylist(Documentslist(i)).doctype )
richStyle.Bold = False
Call rtitem.AppendStyle(richStyle)
Call rtitem.AddNewline(1)
For j = 0 To Ubound(documententrylist(Documentslist(i)).docsummary)
Call rtitem.appendtext(documententrylist(Documentslist(i)).docsummary(j))
Call rtitem.AddNewline(1)
Next
Call rtitem.AppendDocLink (currentnote, db.Title)
'Call rtitem.appendtext(WebMail)
Call rtitem.AddNewline(2)
Next
' combine all informations and send one mail for each supporter
' send this document as mail
HIEROK = Spoofmessagewithitem(_
GetConfigDocByKey("sendMailonBehalfof"),_
Strusername,_
Nothing,_
interactivemessages("msgDispatchNotificationMailSubjectSingleMail"),_
interactivemessages("msgDispatchNotificationMailBodySingleMail"),_
rtitem)
End Forall
Wenn du da wo jetzt
HIER steht ein Stop reinsetzt dann kannst du gezielt nachschauen ob er in diesen Bereich reinspringt. Tut er das dann sollte der Rest eigentlich auch funktionieren.