Discussion :

[tAKAmAkA]

Bon Noël à Tous,

Je souhaites envoyer plusieurs pièces jointes dans un mail Lotus Notes.
J'ai tenté les codes de la FAQ mais sans succes.
Quelqu'un peut-il me mettre sur une piste?
Il y a t-il un séparateur entre les différent chemin de fichier?

Auriez-vous des explications sur cette partie de code Faq Argyronet?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If Attachment <> vbNullString Then 
        Set oAttachME = oMailDoc.CREATERICHTEXTITEM_
           (STR_ATTACHMENT) 
        Set oEmbedObj = oAttachME.EMBEDOBJECT(1454, _
                vbNullString, Attachment, STR_ATTACHMENT) 
        oMailDoc.CREATERICHTEXTITEM _
                (STR_ATTACHMENT) 
    End If

Merci de votre attention

[tAKAmAkA]

C'est simple, il faut utiliser un tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Attachment(0) = "c:\EnvoiMailLotus\test1.txt" 
Attachment(1) = "c:\EnvoiMailLotus\test2.txt"
Attachment(2) = "c:\EnvoiMailLotus\test3.xls" 
 
For i = 0 To 2 
If Attachment(i) <> "" Then 
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment(" & i & " )" ) 
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment(i), "Attachment(" & i & " )" ) 
'mailDoc.CREATERICHTEXTITEM ("Attachment(" & i & " )" ) 
End If 
Next i