Discussion :

[p935754]

Bonjour à tous

J'arrive à envoyer 1 mail avec une pièce jointe en mettant le chemin de la pièce jointe dans la variable attachement.

Comment faire si je veux enyoyer pluiseurs pièces jointes


'Prend en compte les pièces jointes

Code :

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

1
2
3
4
If attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment, "Attachment")
    End If

Merci d'avance

[Pierre Fauconnier]

Bonjour.

Quel est le type de l'objet Maildoc?

[p935754]

J'ai réussi à trouver la solution sur un forum ci joint le code qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        Attachment(0) = "c:\EnvoiMailLotus\test1.txt"
       Attachment(1) = "c:\EnvoiMailLotus\test2.txt"
       Attachment(2) = "c:\EnvoiMailLotus\test.xls"
 
 
        'Les trois attachement sont les nom et chemins des fichiers à envoyer
        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