p935754
Messages postés2Date d'inscriptionjeudi 13 janvier 2005StatutMembreDernière intervention25 août 2007
-
24 août 2007 à 16:46
p935754
Messages postés2Date d'inscriptionjeudi 13 janvier 2005StatutMembreDernière intervention25 août 2007
-
25 août 2007 à 11:04
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
If attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment, "Attachment")
End If
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 24 août 2007 à 16:57
salut,
jamais tenté mais au cas où..
essaie de déclarer ton Attachment en tableau de String, plutot qu'un String seul.
Donc Dim Attachment(NbPJointe - 1) As String et pareil pour
Dim EmbedObj(NbPJointe - 1) As Object
Puis, dans ton If :
For i = LBound(attachment) To Ubound(attachment)
Set EmbedObj(i) = AttachME.EMBEDOBJECT(1454, "", attachment(i), "Attachment")
netx i