Bonjour

J'utilise le code de jfontaine pour envoyer un mail a partir de LotusNotes:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Public Sub MailLotus(ByVal MailDestinataire As String, ByVal Sujet As String, ByVal CorpsMessage As String, _
                ByVal FichierJoint As String)
 
On Error GoTo Gerreur
 
'Dim session As Domino.NotesSession
Dim Session As Object
Dim db As Object
Dim doc As Object
Dim attachme As Object
Dim EmbedObj As Object
Dim attachment() As String
Dim i As Integer
 
Set Session = CreateObject("notes.notessession")
Set db = Session.GETDATABASE("", "")
Call db.OPENMAIL
 
Set doc = db.CREATEDOCUMENT
 
With doc
    .Form = "Memo"
    .AltFrom = Session.UserName
    .BGTableColor = "bg_4"
    .logo = "StdNotesLtr17"
    .ReturnReceipt = 0
    .UseApplet = "True"
    .DefaultMailSaveOptions = 1
    .Encrypt = 0
    .Sign = 0
    .EnterSendto = MailDestinataire
    .SendTo = MailDestinataire
    .Subject = Sujet
    .body = CorpsMessage
    .from = Session.COMMONUSERNAME
    .posteddate = Now
    .SaveMessageOnSend = True
End With
 
If FichierJoint <> "" Then
    attachment = Split(FichierJoint, ";")
    For i = 0 To UBound(attachment)
        Set attachme = doc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = attachme.embedObject(1454, "", attachment(i), "Attachment") 'Attachment
 
    Next i
End If
 
Call doc.SEND(False)
 
Exit Sub
Gerreur:
MsgBox Err.Number & " : " & Err.Description, vbCritical, "Erreur"
 
End Sub
Le problème c'est que je voudrais faire un envoi de mail à des destinaires multiples. Et comme je me base sur l'identifiant du destinataire pour faire mon envoi, j'ai un message d'erreur m'indiquant qu'il n'a pas pu trouver de correspondance pour le destinataire...

Hors si par exemple j'écris
E569390342, U53286438
dans Lotus Notes il cherche directement les destinataires associés
Par contre si dans le code j'ecris exactement la meme chose... la le problème revient....


Comment puis je faire un envoi multiple via LotusNotes?