DominoArea.org [Archive]

Bonjour à tous

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)

Bonjour,
Il faut créer un tableau et ajouter les destinataires dedans
Ensuite tu affectes le tableau au champ SendTo
Cordialement