Mailbenachrichtigung an bestehende Notes-Gruppe bei neuem Dokument

Hallo Zusammen,

ich darf an einer bestehenden Datenbank eine Erweiterung einbringen.

Momentan sieht es wie folgt aus:

Webformular schickt die Daten an die Notes Datenbank und je nach gewählter Kategorie (Dropdown) wird das in die jeweilige View sichtbar.

Es sind 5 Kategorien und die DB hat somit 5 Views.

Jede View hat eine bestimmte Personengruppe berechtigit.

Bei neu eingehenden Dokumenten soll nun die jeweilige Gruppe per Mail benachrichtigt werden?

Wie würdet Ihr dies lösen?

Falls über einen Agenten, wie kann ich neue Dokumente von anderen unterscheiden?

Wie kann ich eine Mail an eine Notes-Gruppe senden?

Vielen Dank für den Input, ich habe nun am WebQuerySave folgendes hinterlegt

@Command([ToolsRunMacro]; "MailNewDoc");

Beim Ageten selbst die Einstellungen als Webbenutzer ausühren zu dürfen, denn vorher gab es einen 404er

Der Agent sieht so aus:

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim nextdoc As NotesDocument
    
    On Error GoTo ErrHandler
    
    Set db = session.CurrentDatabase
    Set dc = db.AllDocuments
    Set doc = dc.GetFirstDocument
    
    If doc.IsNewNote Then
        Call doc.Send( True, "Vorname Name" )
    End If

ErrHandler:
    Print |Error: MailNewDoc Agent: - |+Str(Err)
    Exit Sub
End Sub

Bisher kam keine Mail an mich, kann ich etwas im Agenten machen, um zu sehen, ob dieser überhaupt läuft/angesprochen wird?

Ich habe den Websave wie folgt eingestellt:

webquerysave.jpg

Im Agenten selbst:

agent1.jpg

agent2.jpg

Warum auch immer kann ich wohl den Agenten so nicht aufrufen, er erscheint ein 404er sobald der Teil @Command([RunAgent];"(MailNewDoc)") enthalten ist.

Zitat von taurec

Was sagt dein Serverlog zu der Meldung ?

Gibt es denn auch beide Agenten, die du im WebQuerySave aufrufst ?

Den ersten Agenten muss ich wohl hinterlegen, damit vom Webformular das Dokument überhaupt in die Datenbank gelangt. Finde jedoch keinen Agenten der so heißt, sondern nur eine Maske mit dem Alias. Der zweite Agent soll meiner sein, zumindest habe ich den Alias so genannt, siehe Screenshot oben.

Maske.jpg

Ich habe noch nicht herausgefunden, wie ich in den Log schauen kann...

Zitat von taurec

Die Log.nsf auf dem Server öffnen.

Ohne daß du dir mal den Inhalt des ersten Agenten anschaust ist noch nicht mal sicher ob dein Agent überhaupt laufen kann.

Wenn ich den Agenten Trigger auf Auslöser: "Vor Eingang neuer Mail stelle" dann wird dieser zumindest ausgelöst.

Mit dem Log kam zumindest eine Mail an mich an:

Dim currentLog As New NotesLog( "Mail Benachrichtungsagent" )
Call currentLog.OpenMailLog( "Vorname Name", "Dies ist mein Log Eintrag" )
Call currentLog.Close

und mit diesem, kam auch eine Mail mit Betreff, Maske aber ohne Inhalt in der Maske an:

doc.Form = "formEntry"
doc.Subject = "Neue Datei Datei im Transfer"
Call doc.Send( False, "Vorname Name" )

Im Log gefunden, das ist auch die URL die aufgerufen wird, wenn der 404 erscheint

2020-03-06 09_29_33-meinBenutzer- Remotedesktopverbindung.jpg

Ich hab den Trigger beim Agenten nun mal auf Ereignis "nachdem Dokument erstellt oder geändert wurde" der Agent löst nun bei neuer Mail aus, leider greift die IF Abfrage nicht bei neuen Dokumente doc.IsNewNote da das Dokument wohl schon gespeichert ist?

Wenn die If Abfrage raus ist, erhalte ich zu jedem Dokument eine Mail

Ich dachte ich könnte ohne If Abfrage arbeiten, da der Agent bei .unprocesseddocuments nur neue Dokumente seitdem letzten laufen einbeziehen sollte?

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim col As NotesDocumentCollection
    Dim doc As NotesDocument

    Set session = New NotesSession
    Set db = session.CurrentDatabase
    Set col = db.unprocesseddocuments

    On Error GoTo ErrHandler
    
    Set doc = col.GetFirstDocument()
    While Not(doc Is Nothing)
        If doc.IsNewNote Then
            doc.Form = "CST_Dateitransfer"
            Call doc.send(True, "Vorname Name")
        End If
        Set doc = col.GetNextDocument(doc)
    Wend

ErrHandler:
    Print |Error: Dateitransfer -> MailNewDoc Agent: - |+Str(Err)
    Exit Sub
End Sub

Hallo Carsten,

danke für den Tipp, die Gruppen hatte ich bereits angelegt.

Habe nun dementsprechend 5 Agenten angelegt mit Infobrief und Dokumentenauswahl

Werde trotzdem für mich weiter versuchen dies als Lotusscript Agent zu lösen, auf kurz oder lang bekomme ich immer wieder solche Anfragen.