Systeme de Relance Automatique

[Véronique]

Bonjour,Je debute sur lotus notes :1 . Je souhaite envoyer un mémo avec une pièce jointe à une liste (interne) de destinataires.2. Pouvoir renvoyer le même mémo avec la même pièce jointe aux destinataires de la même liste qui n'aurait pas ouvert le mail.TOUT CELA PAR LE BIAIS D'UN SEUL AGENT ET ACTIVE PAR LE MENU.MERCI D'AVANCE DE VOTRE AIDE.@+

[yop]

met plutôt un accusé de réception dans ce cas

[Stephane Maillard]

Bonjour,Je ne sais pas si cela peut vous servir :Sub Initialize '************************************************* '*********** DESTINATAIRE ***************** 'destinataire = "&ListeDeDiffusion" ' Destinataire liste de diffusion ' Ou le nom des destinataires Dim d(6) As String d(0) = "Dest1" d(1) = "Dest2" d(2) = "Dest3" d(3) = "Dest4" d(4) = "Dest4" d(5) = "Dest5" '************************************************* '************************************************* Dim s As New NotesSession Set db = s.currentdatabase Set coll = db.unprocesseddocuments 'récupération de tous les documents non traités For i = 1 To coll.count Set doc = coll.getnthdocument(i) 'document actuel 'vérification de la valeur du champ espion (afin d'éviter que les messages validés ne soient perçus comme un nouveau message) flag = 0 Forall item_cherche In doc.items If item_cherche.name = "Espion" Then flag = 1 End Forall If flag = 0 Then Set item = New NotesItem(doc,"Espion","Vu") rc = doc.save(True,False,True) 'création Set doc2 = db.createdocument 'document message à envoyer doc2.form = "Memo" 'attribution du masque Mémo flag = doc2.computewithform(False,False) 'Alignement de la structure du document 'récupération des informations entrantes in_sujet = doc.subject(0) in_expediteur = doc.from(0) 'insertion des informations dans le document créé 'sujet out_sujet = db.title & " : " & in_sujet & " par " & in_expediteur Set item = doc2.ReplaceItemValue("Subject",out_sujet) 'destinataire Set item = doc2.ReplaceItemValue("SendTo",d()) 'Ajout du lien pointant vers le document entrant Set rtitem= doc2.CreateRichTextItem("Body") Set rtitem = doc2.GetFirstItem("Body") Call rtitem.AddNewLine(1) Call rtitem.AppendText("Cliquez sur le lien pour afficher le document entré dans : " & db.title & " ") Call rtitem.AppendDocLink(doc,"Cliquer pour lire le document entrant.") 'Envoi du message Call doc2.send(False,destinataire) 'Mise à jour des documents vus par l'agent Call s.UpdateProcessedDoc(doc) Else End If NextEnd SubCet agent permet d'expédier un avis d'entrée dans une boîte courrier à une personne, ou un ensemble de personnes.Le message envoyé contient un lien vers le document original[%sig%]

[Véronique]

Merci de ton aide Yop mais l'accusé de réception ne pourra pas me permettre de faire la différence automatiquement, il me restera encore a "comparer" les deux listes.....@+