J'ai codé un envoie de mail en LS.
Je créé mon document que j'ai appelé docmail et je lui rentre les paramètres dont j'ai besoin pour enregistrer le mail dans la mailbox pour que celui ci soit expédié.
Je voudrais que plusieurs personnes reçoivent le même mail mais je ne connais pas la syntaxe à utiliser dans le champ Recipients
Merci de votre aide
Voici un partie de mon code
- Code : Tout sélectionner
Dim SessionMail As New NotesSession
Dim dbMailBox As NotesDatabase
Dim docMail As NotesDocument
Dim body As NotesRichTextItem
If SessionMail.IsonServer Then
Set dbMailBox = SessionMail.getdatabase("", "mail.box", False)
Else
Set dbMailBox = SessionMail.getdatabase(SessionMail.currentdatabase.server, "mail.box", False)
End If
Set docMail = New NotesDocument(dbMailBox)
Call docMail.replaceitemvalue("Form", "Memo")
Call docMail.replaceitemvalue("From", "Relance")
Call docMail.replaceitemvalue("SendTo", "Maurice MARTIN/Societe")
Call docMail.replaceitemvalue("copyTo", "Alain PIERRE/Societe")
Call docMail.replaceitemvalue("Recipients", "Maurice MARTIN/Societe, Alain PIERRE/Societe") 'sans succès
Call docMail.replaceitemvalue("PostedDate", Now)
Call docMail.replaceitemvalue("Subject", "ROC : Relance" )
Set body = New NotesRichTextItem (docMail, "Body")
Call body.AppendText ("Bonjour,")
Call docMail.Save(True, False, False)