[LotusNotes] Envoi multiple

Version imprimable

Bonjour

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

Code:

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?

19/02/2008, 13h12
ouskel'n'or

Je ne connais pas mais tu peux toujours, dans "Recherche sur ce forum" essayer de trouver ton bonheur en tapant Lotus*. Il y a un grand nombre de réponse, hélas très peu de "résolues" :(
Bonne chance

PS - Pour la recherche sur le forum, tu dois retourner sur le forum (on n'a pas accès depuis ce message)

merci ouskel'nor c'est vrai que concernant l'envoi de mail par Lotus les explorations sont rares... et malheuresement en Vb je ne sais piloter que Outlook

j'ai finalement trouvé une solution que j'ai adapté à mon cas (envoi multiple variable)

en fait la solution préconisée et l'emploi d'un tableau...

j'utilise donc ce code:

Code:

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Public Sub MailLotus(ByVal MailDestinataire As String, ByVal MailCopie As String, ByVal MailCCopie 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
Dim recip() As Variant
 
 
t = 1
v = 0
Do While InStr(t, MailDestinataire, ", ") <> 0
t = t + InStr(t, MailDestinataire, ", ")
v = v + 1
Loop
 
ReDim recip(v)
 
r = 0
Do While InStr(1, MailDestinataire, ", ") <> 0
uid = Left(MailDestinataire, InStr(1, MailDestinataire, ", ") - 1)
uid = Left(uid, Len(uid) - 1)
uid = Right(uid, Len(uid) - InStr(1, uid, "("))
recip(r) = uid
MailDestinataire = Right(MailDestinataire, Len(MailDestinataire) - (Len(uid) + 2))
r = r + 1
Loop
 
recip(r) = MailDestinataire
 
 
 
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 = 1
    .EnterSendto = recip
    .sendto = recip
    .CopyTo = ccRecipient
    .BlindCopyTo = bccRecipient
    .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

qui créé un tableau et le redimensionne avec un Redim juste après pour éviter d'avoir à spécifier arbitrairement le nombre d'éléments du tableau et ainsi éviter des destinataires vides (qui apparaitraient dans le mail : ", , , , , , " pas propre!). Je sectionne Maildestinaire en prenant en compte les ", " entre les destinataires... pas très propre mais l'essentiel est là