Thank you Ron !!!

Patrick

"Ron de Bruin" a écrit dans le message de news:
...
Click on the TIP link on each example page

But for 500/600 I suggest this
http://www.rondebruin.nl/mail/folder3/mail4.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl



"...Patrick" wrote in message
...
Hello Ron,

In your code that i have adapted, is it possible to have more lines in
the body ?

ActiveSheet.Shapes("TexteClient").Select
Txt = Selection.Characters.Text ' text length = +/ - 192 carac.

I need 500 or 600 or more !

Many thanks


"Ron de Bruin" a écrit dans le message de news:
...
Hi Patrick

Repeat the addAttachment line with the other file name

--

Regards Ron de Bruin
http://www.rondebruin.nl


"...Patrick" wrote in message
...
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