Envoi de mail automatique

[cyraile]

Bonjour,

Je souhaite envoyer un mail automatique à une dizaine de personnes une fois par mois.

J'ai créer un agent, et dans action simple j'ai mis une action "Envoyer le courrier", pour faire mes tests j'ai fait un envoi toutes les 5 minutes sauf que le souci c'est que j'ai 1500 mails qui arrive d'un coup au lieu de 1.

Quelqu'un peut-il m'aider ?

[Jérome Deniau]

Pourquoi toutes les 5 minutes? Il suffit de planifier l'agent en fonction des besoins:
1 fois par semaine par exemple le vendredi à xx heures, cela fonctionne très bien.

Propriétés de l'agent, planification hebdomadaire (ou mensuelle ou quotidienne), etc....

[cyraile]

J'ai fait ce que tu as dit

J4ai donc programmé l'agent pour s'éxécuter Mensuellement le 30 à 11h et quand il s'est exécuter j'ai reçu 1996 mails dans ma boîte.

Y'a t'il un paramètre que j'ai zappé ?

[Michael DELIQUE]

salut

tu n'aurrais pas 1996 mails dans ta boite ?

[cyraile]

ça se pourrais - quand j'ai fait un test de l'agent j'ai vu qu'il parcourrais tous les mails.

Du coup je nage un peu dans noir - je ne vois pas comment faire.

Je veux envoyer un mail automatique tous les mois pour dire aux personnes concernées de ne pas oublier de faire leur sauvegarde.

Pouvez vous m'aidez.

[Stephane Maillard]

Salut,

Entre parcourir et envoyer un mail il y à une sacré différence dans ta boîte mail de test tu as combien de message réellement ?

[cyraile]

J'ai actuellement 490 mails.

Ma question à ce moment est : Y'a t'il la possibilité d'envoyer un mail automatique tous les mois à une dizaine de personnes ? Et comment faire parce que la je nage vraiment.

Merci pour votre réactivité.

[Stephane Maillard]

Re,

Dans un agent planifié[syntax="LotusScript"]Sub MailToPerson(sFullname As String, scheduleDoc As NotesDocument)
Dim Subject As String
Dim Note As NotesDocument

On Error Goto err_BuildMail

Subject = ScheduleDoc.GetFirstItem("Subject").Text
' Only send the mail is the subject on the schedule doc contains the text
If Subject = "" Then Exit Sub

Set Note = New NotesDocument(ScheduleDoc.ParentDatabase)
Call Note.ReplaceItemValue("Form", "Memo")
Call Note.ReplaceItemValue("Principal", ScheduleDoc.GetFirstItem("Principal").Text)
Call Note.ReplaceItemValue("SendTo", sFullname)
' Transfert the subject and the body field from the schedule document to the new memo
Call Note.ReplaceItemValue("Subject", Subject)
Call ScheduleDoc.GetFirstItem("Body").CopyItemToDocument(Note, "Body")

On Error Goto err_SendMail

If ALLOW_MAIL_SAVE_TO_END_USERS Then Call Note.Save(True, False, False)
If ALLOW_MAIL_SENDS_TO_END_USERS Then Call Note.Send(False)

Fin:
Exit Sub
err_BuildMail:
Call WriteLog(logDocument, "Failed to build e-mail note to '" & sFullname & "' using schedule document for server '" & ScheduleDoc.GetFirstItem("RegionName").Text & ".", ScheduleDoc, True)
Resume Fin
err_SendMail:
Call WriteLog(logDocument, "Failed to send e-mail confirmation to '" & sFullname & "'.", ScheduleDoc, True)
End Sub
[/syntax]Code à adapter.

[cyraile]

Désolé de vous embêter, mais je n'arrive pas à l'adapter

Je suppose que le String subject correspond au sujet du mail (dans mon cas : Rappel SAUVEGARDE)

Egalement je pense que le sFullName qui est passer en paramètre est l'adresse mail de la personne

Par contre je ne comprend pas le scheduleDoc

Et quand je fait enregistrer il me dit : Données non enregistrées en raison d'erreur de script
sur la ligne 27 :
[syntax="LotusScript"]Call WriteLog(logDocument, "Failed to build e-mail note to '" & sFullname & "' using schedule document for server '" & ScheduleDoc.GetFirstItem("RegionName").Text & ".", ScheduleDoc, True)[/syntax]

Cause de l'erreur : Not a sub or function name WRITELOG

Merci encore

[Stephane Maillard]

Re,

On ai jamais mieux servit que par l'aide

1. This script mails a document and its form. The document is mailed to the recipients contained in the SendTo item of the document.
Dim doc as NotesDocument
'...set value of doc...
Call doc.Send( True )
2. This script sets the value of the SendTo item in a document. It then mails the document and its form. The document gets mailed to Carl Pycha.
Call doc.ReplaceItemValue( "SendTo", "Carl Pycha" )
Call doc.Save( False, True )
Call doc.Send( True )
3. This script mails a document to Sally Bowles. The form is not mailed.
Call doc.Send( False, "Sally Bowles" )
4. This script mails a document and its form to Jim Dinauer, Betty Dinauer, and Mary Sticka.
Dim recipients( 1 To 3 ) As String
recipients( 1 ) = "Jim Dinauer"
recipients( 2 ) = "Betty Dinauer"
recipients( 3 ) = "Mary Sticka"
Call doc.Send( True, recipients )
5. This script mails a document to anyone listed in its DocAuthor field.
Call doc.Send( True, doc.DocAuthor )
6. This script creates a new document in the current database and mails it to Elissa Minty.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "Elissa Minty"
doc.Subject = "Here's the document you wanted"
Call doc.Send( False )

[cyraile]

Merci beaucoup,

Le mail s'envoi maintenant , il me reste juste à mettre un petit corps dans le message.
je suppose qu'il y a une fonction doc.quelquechose

[Stephane Maillard]

Re,

Ce qui t'intéresse est le rtitem.
[syntax="LotusScript"]Dim session As New NotesSession
Dim db As NotesDatabase
Dim memo As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
'...set value of doc...
Set memo = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( memo, "Body" )
Call rtitem.AppendDocLink( doc, db.Title )
memo.Subject = "Here's a link to the document"
Call memo.Send( False, "Frank Glennel" )[/syntax]

[Stephane Maillard]

Re,

Exemple pour l'ajout d'une ligne vierge et du texte[syntax="LotusScript"] Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText _
( "Book is 64 pages, full color." )[/syntax]

[cyraile]

Merci mille fois.

C'est bon.

[pascal29]

Bonjour,

Je reviens sur ce post car moi aussi j'ai eu un souci pour la création d'un agent qui doit envoyer tous les lundi un message depuis une boite mail.
L'expéditeur reçois à chaque fois plus de 9000 messages d'un coup ! (ce qui correspondrait au nombre de message dans la boite mail)

Je pense que le problème se situe sur la sélection des documents de l'agent. En effet, pour un agent planifié, il n'est pas possible de sélectionner comme cible "Aucun", comme c'est le cas pour un agent selon évènement. Sauf dans le cas ou on crée un agent lotusscript, l'option [cible : "Aucun"] est sélectionnable en bas du panneau de programmation ... Pourquoi seulement là et pas pour les agents de type "Formules" et "Actions simples" ?

Je vais donc devoir créer mon agent en lotuscript, ce qui, je trouve, "complique un peu les choses" quand il s'agit d'envoyer un simple mail.

Est-ce que quelqu'un aurait une autre solution ?

(je suis en designer 8.5 sur une boite 7)

EDIT :

Formule / Action simple :


LotusScript :