Envoi Mail via Access

Version imprimable

24/08/2007, 15h49
p935754

Envoi Mail via Access
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:

1 2 3 4 If attachment <> "" Then Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment, "Attachment") End If
Merci d'avance
24/08/2007, 20h00
Pierre Fauconnier

Bonjour.

Quel est le type de l'objet Maildoc?

Résolu

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

Code:

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