Exemple Envoyer des emails avec un automate

Dans cet exemple nous allons montrer comment envoyer un email à un destinataire lorsque l'état d'un objet de l'application change.

Dans ce scénario:

• Nous modifions l'état d'un objet.
• Ceci crée un évènement métier.
• Une tâche d'automate consomme l'évènement et le copie dans une file d'attente POP3.
• La file d'attente POP3 envoie l'email.

Pour cela nous utiliserons :

• Une classe métier à l'origine de l'email, la classe contient un attribut unEmail qui contient l'émail du destinataire.
• Un évènement métier qui détecte le changement de l'objet.
• Une file d'attente QUEUEEMAIL pour consommer l'évènement.
• Une file d'attente QUEUEPOP3 pour produire l'émail.
• Un automate déclenché par un évènement file d'attentes.
• Une tâche de copie de message entre file d'attente.

Définition des files d'attentes

File d'attente Source

Cette file consomme les évènements

• La classe est TdbmEvent

• Le topic est queueEmail tel que défini dans l'évènement métier

File d'attente Destination

Cette file est utilisée pour envoyer l'émail.

sur l'url:

• sndMailToField

Définit quel attribut de l'évènement contient l'adresse du destinataire, ici l'attribut RedirectTo de l'évènement

• sndSubjectField

Définit quel attribut de l'évènement contient le sujet de 'émail, ici l'attribut Caption de l'évènement

• sndContentField

définit quel attribut de l'évènement contient le contenu du message, ici l'attribut Text de l'évènement