Dokumentenauswahl durch Agent ändert sich ,sobald Agent neu gespeichert wird

  • 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