DominoArea.org [Archive]

bonjour,

j'aurais souhaiter faire un agent (LS) qui envoie une réponse automatique , selon un modèle, à l'expéditeur du mail.
Cet agent devrait se déclencher à chaque nouveaux mail reçu (donc j'ai mis "apres l'arrivée du courrier").

Voici le code :

Sub Initialize

Dim s As New NotesSession
Dim db As NotesDatabase
Dim doccol As NotesDocumentCollection
Dim mavue As NotesView
Dim memo As NotesDocument
Dim doc As NotesDocument
Dim docModele As NotesDocument
Dim exped As Variant
Dim dest As Variant

exped = "monadresse@monadresse.com"

Set db = s.CurrentDatabase

Set mavue = db.GetView("accuserecep")
Set docModele = mavue.GetFirstDocument()

Set doccol = db.UnprocessedDocuments
Set doc = doccol.GetFirstDocument

dest = doc.GetItemValue("From")
Call docModele.ReplaceItemValue("Principal", exped)
Call docModele.ReplaceItemValue("From", exped)
Set memo = db.CreateDocument()
memo.Form = "Mémo_spe"
Call docModele.CopyAllItems(memo,False)
Call memo.ReplaceItemValue("Subject", "Accusé de réception")
Call memo.ReplaceItemValue(" Principal", exped)
memo.SendTo = dest
Call memo.send(True)

End Sub

Mais ça ne marche pas, je ne reçois jamais l'accusé de réception. Est-ce que vous auriez une idée ? Merci de votre aide

salut

cette option "apres l'arrivée du courrier" est connu pour beugé.

le plus simple un agetn schédulé toute les heures qui traite tout les mails qui non pas un Champ "Reply_spe" de rempli. et qui pour chaque mail tratié ajoute les dis champs avec un truc dedans (comme la date et l'heure par exemple)

Bonjour,
j'ai planifié l'agent, et j'ai rajouté une boucle :

While not (doc Is Nothing)
If doc.GetItemValue("traite") <> "oui" Then
Call doc.AppendItemValue("traite","oui")
dest = doc.GetItemValue("From")
Set memo = db.CreateDocument()...
...
... memo.SendTo = dest
Call memo.send(True)

End If

Call session.UpdateProcessedDoc( doc )
Set doc = doccol.GetNextDocument(doc)

Probleme, il me fait un "type mismatch" sur la ligne If doc.GetItemValue("traite") <> "oui"
(le champ n'existe pas , par défaut, si le document n'a pas encore été traité)
Comment résoudre ce soucis ?

Merci

ouaip

parceque tu as écrit doc.GetItemValue("traite") et non doc.GetItemValue("traite") (0).

notes considere les champs comme des tableaux donc in faut indiqué l'index du tableau sinon tu passe tout le tableau et ça plante

Merci ça marche mieux, forcement.
Par contre, mon champ "from" et "principal" ne sont pas modifiés (du coup j'apparais comme l'expéditeur, alors que ça doit etre l'adresse générique de la mail-in DB)

re,

c'est article t'expliquera mieux que moi comment maitriser l'expéditeur d'un mail => http://www.dominux.net/dominux/Blog.nsf ... OFRESJ.htm

ça marche,
merci pour ton aide efficace

Bonjour,

Je relance un peu le sujet ... à cause d'un petit souci lorsqu'un mail de ce type ( réponse automatique ) est lancé par un agent périodique.
Dans mon cas, dans le champ Principal, je concatène "NO REPLY" avec l'objet du mail reçu.

- Tant que je reste dans un environnement purement Notes, tout fonctionne parfaitement : j'ai bien la valeur de mon champ "Principal" qui apparaît en expéditeur.
- Par contre, si le mail provient d'une boîte aux lettres externe ( gmail ou autres ... ), seul le nom du serveur apparaît en tant qu'expéditeur ...

Y a-t-il un moyen de l'éviter ?

Merci d'avance pour vos réponses.

salut

regarde les champs from et inetfrom

Merci Michael.
Je vais tester et je reviens vers toi.

A priori, cela ne change rien ...
J'ai toujours le nom du serveur qui apparaît ...

Si tu utilises doc.send dans un agent planifié c'est le signataire de l'agent qui apparaitra comme emetteur.
Plein de sujets dans ce forum pour maitriser l'émetteur du mail dont beaucoup renvoient sur un article de Dominux de mémoire