Bonjour à tous,

J'essaie d'adapter une macro initialement pour Outlook, afin qu'elle fonctionne sur Lotus Notes.
Cela fonctionne plutôt bien, sauf lorsque j'ai plus de 6 destinataires.

A partir du 7e destintaires, Lotus ne "retient" dans le champ des destintaires, que le 1er et encore, il l'a tronqué à partir de l'@

Si ma chaîne de destinataires était :
aaa@aaa.fr, aaa@aaa.fr, aaa@aaa.fr, aaa@aaa.fr, aaa@aaa.fr, aaa@aaa.fr, aaa@aaa.fr

Elle devient :
aaa

Le code que j'utilise :
1- Initialisation de la liste des destinataires
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
For i = 1 To NbParticipants
 
  emailsTo = emailsTo & ";" & listParticipant(2, i)
 
Next i
A noter : listparticipant est un simple tableau contenant les emails

2- Fonction d'envoi du mail
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Function SendlotusEmail(nMailRecipient, nmailcc, nmailsubject, nmailbody)
 
 
    Dim nMail As Object
 
    Dim nSession As Object
    Dim nDatabase As Object
    Dim nMime As Object
    Dim nMailStream As Object
    Dim nChild As Object
    Dim amountOfRecipients As Integer
 
 
    Set nSession = CreateObject("Notes.NotesSession")
    Set nDatabase = nSession.GetDatabase("", "")
    Call nDatabase.OPENMAIL
    Set nMail = nDatabase.CreateDocument
 
    nMail.SendTo = nMailRecipient
    nMail.Subject = nmailsubject
    nMail.CopyTo = nmailcc
    'nMail.BlindCopyTo = nmailcci
 
    nSession.ConvertMIME = False
    Set nMime = nMail.CreateMIMEEntity
    Set nMailStream = nSession.CreateStream
 
    Call nMailStream.WriteText(nmailbody)
   '
 
    Set nChild = nMime.CreateChildEntity
    Call nChild.SetContentFromText(nMailStream, "text/html;charset=iso-8859-1", ENC_NONE)
    Call nMailStream.Close
    nSession.ConvertMIME = True
    Call nMail.Save(True, True)
    'Make mail editable by user
    CreateObject("Notes.NotesUIWorkspace").EDITDOCUMENT True, nMail
    'Could send it here
End Function
Quelqu'un aurait une idée ?
Merci par avance pour votre aide.