Hallo zusammen,
ich habe folgendes Skript welches die Dokumente in meiner DB durchsucht ob für den morgigen Tag ein Kontrolltermin ansteht:
Option Public
Option Declare
Use "SendMailDocLink"
Sub Initialize
End Sub
%REM
Sub check_deadline
Description: check documents for new deadlines and generate mail
%END REM
Public Sub check_deadline
'global vars
Dim session As New NotesSession
Dim dDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim colAll As NotesDocumentCollection
Dim sSearch As String, sRec As string
Dim sTopic As String, sBearb As String, sIssue As String, sSubject As String
Dim iY As Integer, iM As integer, iD As Integer
Dim sDatTom As String
Set db = session.CurrentDatabase
iY = Year(Date$)
iM = Month(Date$)
iD = Day(Date$) + 1
sDatTom = DateNumber(iY,iM,iD)
sSearch = {SELECT A_Kontrolle=(@Date(} & iY & ";" & iM & ";" & iD & {))}
Set colAll = db.Search(sSearch,Nothing,0)
print "Gefundene Dokumente: " & colAll.Count
Set dDoc = colAll.GetFirstDocument()
While Not (dDoc Is Nothing)
sTopic = "Es steht ein Kontrolltermin für ein Teilprojekt an am " + sDatTom
sIssue = "Thema ist " + (dDoc.GetItemValue("A_Bez")(0))
sSubject = "Kontrolltermin steht morgen an!"
sRec = (dDoc.Getitemvalue("A_Verantwortl")(0))
SendNotice sTopic, sIssue, sRec, sRec, sSubject, dDoc
Set dDoc = colAll.GetNextDocument(dDoc)
Wend
End Sub
Dieses Skript ruft ein Agent zeitgesteuert auf, laut Protokoll läuft er auch brav jeden Morgen um 6. Eine Mail wird jedoch nicht versendet. Rufe ich den Agent manuell auf, bekomme ich meine Benachrichtigung.
Jemand eine Idee woran es liegen könnte?
Was gibt denn
print "Gefundene Dokumente: " & colAll.Count
auf der Console aus?
Wenn > 0, dann solltest Du dir mal Deine "SendNotice" routine ansehen.
** ein bisschen error handling ist sicher auch nicht falsch ...
Also da hab ich wieder was gelernt, an die Serverkonsole hat ich gar nicht gedacht. Der relevante Teil sieht nun so aus:
[15C0:0002-15C4] 20.12.2019 14:10:34 AMgr: Start executing agent 'check_schedule' in '***\PKMF.nsf' by Executive '3'
[15C0:0002-15C4] 20.12.2019 14:10:34 AMgr: 'Markus ***/***/**' is the agent signer of agent 'check_schedule' in '***\PKMF.nsf'
[15C0:0002-15C4] 20.12.2019 14:10:34 AMgr: 'Agent 'check_schedule' in '***\PKMF.nsf' will run on behalf of 'Markus ***/***/**'
[15C0:0002-15C4] 20.12.2019 14:10:34 AMgr: Agent ('check_schedule' in '***\PKMF.nsf') error message: Error creating product object
Ich habe in einem Skript einige Verweise auf ui Elemente drin, die muss ich nun noch eleminieren. Dann sollte es laufen, hoffe ich.........
Ansonsten melde ich mich nochmal ;)
Vielen Dank!