Hi !
ich habe einen Agenten, der als Newsletter fungiert.
d.h. sobald ein neues oder geändertes Dokumet in einer Datenbank erstellt wird, wird eine Email generiert und mit bestimmten Informationen im Inhalt versendet.
Das funktioniert auch wie gewünscht.
Mein Problem ist, das der Agent, sobald ich etwas an dem Agenten ändere, wieder alle Dokumente als "neue" Dokumente erkennt und als Newsletter verschickt.
Wie kann ich das stoppen, damit der Agent die bereits "angefassten" Dokumente ignoriert.
Hier mein Code, den ich verwende.
Jeder Tipp oder Beispiel ist gern genommen
Sub Initialize
Dim se As New NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Dim maildoc As NotesDocument
Dim rti As NotesRichTextItem
Dim rtitemA As Variant
Dim autor As Variant
Set db = se.CurrentDatabase
Set col = db.UnprocessedDocuments
If col.Count > 0 Then
Set doc = col.GetFirstDocument
While Not doc Is Nothing
'Mail erstellen
Set maildoc = New NotesDocument(db)
maildoc.Form ="Memo"
maildoc.SendTo = Evaluate( | @DbColumn( "" : "NoCache" ; "xx" : "xx\\test.nsf" ; "($Profiles)" ; 2 )| )
maildoc.Subject = "Test Newsletter" + " [" + doc.Subject(0) + "] " + " [Kat: " + doc.Categories(0) + "]"
autor = Evaluate(|@Name([CN];From)|, doc)
Set rti = New NotesRichTextItem(maildoc, "Body")
Set rtitemA = doc.GetFirstItem("Body")
Call rti.appendText("Klicken Sie hier, um auf das Dokument zu antworten: ")
Call rti.AppendDocLink(doc, "Link")
Call rti.AddNewline(2)
Call rti.AppendText( "Autor: " + autor (0))
Call rti.AddNewLine( 1 )
Call rti.AppendText( "Thema: " + doc.Subject(0) )
Call rti.AddNewLine( 1 )
Call rti.AppendText( "Kategorie: " + doc.Categories(0) )
Call rti.AddNewLine( 2 )
Call rti.AppendText( "Inhalt: ")
Call rti.AddNewLine( 1 )
Call rti.AppendRTItem(rtitemA)
Call maildoc.Send(False)
'Dokumentstatus aktualisieren
Call se.UpdateProcessedDoc( doc )
Set doc = col.GetNextDocument(doc)
Wend
End If
End Sub