Hello,

with the help de Ron code, i try tou send 1 ou more file ".pdf" to one or
more people but i have a problem if i try to send 2 files in the same mail:

my 2 files a tutu.pdf and toto.pdf and more ...

Before the change of my For/next, i send in 2 or more separate mails for the
same poeple, but it is better to make ONE send with the 2 or more files..

Thank you

this is a part of my code:
....
....
For I = 5 To Lastfile 'from line 5 to last line
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
ActiveSheet.Shapes("TexteClient").Select
Txt = Selection.Characters.Text
ActiveSheet.Shapes("averti256").Select
'Txt2 = Selection.Characters.Text
strbody = Txt & Chr(13) & [I8].Value ' I8 = adresse net de t&p
Debut = "C:\THOMAS_PIRON\" ' répertoire des PDF
Scan = Scan & Cells(I, 6).Value & ".pdf" ' how is is possible to send 2
files
On Error GoTo 0
Next ' i = 5 to lastfile


With iMsg
Set .Configuration = iConf
.To = Destinataire
.cc = ""
.BCC = Invisible ' pour une trace de l'envoi
.From = Range("I9").Value ' """Patrick"" "
.Subject = ObjetMail
.TextBody = strbody
.addAttachment Debut & Scan HERE IS THE PROBLEM
.Send
Scan = "scan_": Texte = "texte_": Tarif = "tarif_"
End With