Domino 9 und frühere Versionen > ND8: Entwicklung

Agentengesteuerte Mailbenachrichtigung

(1/1)

Keydins:
Hallo zusammen,

ich bräuchte mal ein paar Denkanstöße zu folgendem Problem:

Wir haben bei uns eine Anwendung in der verschiedene Dokumente enthalten sind. Ein Teil dieser Dokumente muss 1-2x pro Jahr (feste Termine, Zeitfenster 30 Tage) beurteilt werden und zwar vom für das Dokument verantwortlichen Mitarbeiter. Die Dokumente werden dazu 30 Tage vor dem Stichtag von einem Agenten in den passenden Status versetzt.

Anschließend sollen die Verantwortlichen eine Mail erhalten, in der eine Liste der von ihnen zu bearbeitenden Dokumente erhalten ist (idealerweise mit DocLink).

Mein aktueller Ansatz wäre:

1. Collection der insgesamt zu bearbeitenden Dokumente erstellen
2. Collection durchsuchen, um eine Liste der zu informierenden Verantwortlichen zu ermitteln
3. Wert aus der Liste holen, aus Collection alle Dokumente zusammentragen, die der Listenposition zugeordnet sind
4. Mail zusammenstellen und versenden
5. nächsten Listeneintrag ansteuern und bei 3. weitermachen, bis Liste durchlaufen wurde


Ist der Ansatz sinnvoll oder sollte ich das anders angehen?


Gruß
Dirk

Peter Klett:
Ich würde das über eine Liste von Dokumenten machen.

Also eine Collection aller relevanten Dokumente (Dein Punkt 1)

Dann durch die Dokumente durchgehen und Mails an die Bearbeiter erstellen/anpassen

Alle Mails versenden

Technisch etwa so


--- Code: ---Dim maildocs List As NotesDocument
Dim mailrtitems List As NotesRichtextItem

--- Ende Code ---

Durch alle Dokumente gehen, doc sei das laufende Dokument, doc.Bearbeiter (0) der zuständige Mitarbeiter


--- Code: ---Set doc = col.GetFirstDocument
Do While Not doc Is Nothing
   If Not IsElement (maildocs (doc.Bearbeiter (0))) Then
      'Mail erstellen
      Set maildocs (doc.Bearbeiter (0)) = New NotesDocument (db)
      maildocs (doc.Bearbeiter (0)).Form = "Memo"
      maildocs (doc.Bearbeiter (0)).SendTo = doc.Bearbeiter (0)
      maildocs (doc.Bearbeiter (0)).Subject = "Irgendein Titel"
      Set mailrtitems (doc.Bearbeiter (0)) = New NotesRichtextItem (maildocs (doc.Bearbeiter (0)), "Body")
      Call mailrtitems (doc.Bearbeiter (0)).AddText ("das Start-BlaBla")
   End If
   'Mail aktualisieren
   Call mailrtitems (doc.Bearbeiter (0)). AddDoclink usw.
   Set doc = col.GetNextDocument (doc)
Loop

--- Ende Code ---

Nach der Zusammenstellung der Mails diese versenden


--- Code: ---Forall maildoc in maildocs
   Call maildoc.Send (False)
End Forall

--- Ende Code ---

Keydins:
Hallo Peter,

das ist deutlich schlanker als mein nach beschriebener Punkteliste programmiertes Verfahren.

Vielen Dank für den Tip, werde ich gleich mal ausprobieren.

Gruß
Dirk

Navigation

[0] Themen-Index