Domino 9 und frühere Versionen > ND9: Entwicklung

Zeitgesteuerter Agent funktioniert nicht, bei manuellem Aufruf schon

(1/2) > >>

mark_us:
Hallo zusammen,

ich habe folgendes Skript welches die Dokumente in meiner DB durchsucht ob für den morgigen Tag ein Kontrolltermin ansteht:


--- Code: ---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
--- Ende Code ---

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?

eknori (retired):
Was gibt denn


--- Code: ---print "Gefundene Dokumente: " & colAll.Count
--- Ende Code ---

auf der Console aus?

Wenn > 0, dann solltest Du dir mal Deine "SendNotice" routine ansehen.

** ein bisschen error handling ist sicher auch nicht falsch ...

Ralf_B:
Bitte auch beachten, dass der Signer eine Mailbox haben muss wenn nicht entsprechend ein Notes.ini Parameter gesetzt ist.

mark_us:

--- Zitat von: eknori am 19.12.19 - 10:11:15 ---Was gibt denn


--- Code: ---print "Gefundene Dokumente: " & colAll.Count
--- Ende Code ---

auf der Console aus?

Wenn > 0, dann solltest Du dir mal Deine "SendNotice" routine ansehen.

** ein bisschen error handling ist sicher auch nicht falsch ...

--- Ende Zitat ---

Meinst du die Serverkonsole? Am Client jedenfalls werden die gefundenen Dokumente angezeigt, aber da funktioniert ja auch der Mailversand.

mark_us:

--- Zitat von: Ralf_B am 19.12.19 - 10:31:05 ---Bitte auch beachten, dass der Signer eine Mailbox haben muss wenn nicht entsprechend ein Notes.ini Parameter gesetzt ist.

--- Ende Zitat ---

Der Signer bin momentan ich selber, also sollte das kein Problem sein!

Navigation

[0] Themen-Index

[#] Nächste Seite