Hi,
nach einer Ewigkeit nicht mehr aktiv programmieren, wollte ich mich wieder einarbeiten und einen Agenten schreiben, der den Maileingang auswerten soll.
Zur Übung hab ich erstmal nur den Rumpf erstellt, um durch Logging zu schauen, ob der Agent auch so startet wie gewünscht.
Die Datenbank (MailR9) habe ich mit einem "Nach Eingang neuer Mail"-Agenten versehen. Signiert ist er mit der Server-ID.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim mdoc As NotesDocument
Dim mdoccol As NotesDocumentCollection
Dim mailcount As Long
Dim profile As NotesDocument
Set db = session.currentdatabase
Set mdoccol = db.Unprocesseddocuments
Set profile = db.Getprofiledocument("_profilenewmail")
mailcount = mdoccol.Count
call profile.Replaceitemvalue("dbs_letztemail", Now())
Call profile.save(True,False)
Call LogEvent(mailcount & " mails to proceed", SEVERITY_LOW, Nothing)
Print mailcount & " mails to proceed"
Set mdoc = mdoccol.Getfirstdocument()
While Not mdoc Is Nothing
'Do some magic things
Print "Hurra! Neue Mail bekommen!"
Call LogEvent("Hurra! Neue Mail bekommen!", SEVERITY_LOW, Nothing)
Set mdoc = mdoccol.Getnextdocument(mdoc)
Wend
Das ist nur zu Testzwecken so schnell mal geschrieben. LogEvents und Prints habe ich nur rein, damit ich etwas Output auf der Console bzw. in einer LogDB habe.
Das Log sagt dazu:
28.08.2017 13:54:20 AMgr: Received new mail event from Router for 'mailin\Testdb.nsf'
28.08.2017 13:55:21 AMgr: Start executing agent 'Neues Mail|newmail' in 'mailin\Testdb.nsf' by Executive '1'
28.08.2017 13:55:21 AMgr: 'xxx/yyy' is the agent signer of agent 'Neues Mail|newmail' in 'mailin\Testdb.nsf'
28.08.2017 13:55:21 AMgr: 'Agent 'Neues Mail|newmail' in 'mailin\Testdb.nsf' will run on behalf of 'xxx/yyy'
28.08.2017 13:56:20 AMgr: Agent 'Neues Mail|newmail' in 'mailin\Testdb.nsf' ran successfully; elapsed time was '0' ticks
Aber weder in der Logdatenbank wird etwas geschrieben, noch erscheinen die Prints in der Console.
Wenn ich den Agenten direkt im Designer starte, dann schreibt er in die Logdatenbank.
Bin etwas ratlos.
Gruß
CF