send mail from excel 2000 and Outlook Express

[...Patrick]

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 are: 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"" (e-mail address removed)"
.Subject = ObjetMail
.TextBody = strbody
.addAttachment Debut & Scan HERE IS THE PROBLEM
.Send
Scan = "scan_": Texte = "texte_": Tarif = "tarif_"
End With

 

[Ron de Bruin]

Hi Patrick

Repeat the addAttachment line with the other file name

 

[...Patrick]

Ok Ron, i try this
Thanks to you and for your web site !!


Bye

Patrick

Hi Patrick

Repeat the addAttachment line with the other file name

--

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

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 are: 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"" (e-mail address removed)"
.Subject = ObjetMail
.TextBody = strbody
.addAttachment Debut & Scan HERE IS THE PROBLEM
.Send
Scan = "scan_": Texte = "texte_": Tarif = "tarif_"
End With

 

[...Patrick]

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

Hi Patrick

Repeat the addAttachment line with the other file name

--

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

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 are: 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"" (e-mail address removed)"
.Subject = ObjetMail
.TextBody = strbody
.addAttachment Debut & Scan HERE IS THE PROBLEM
.Send
Scan = "scan_": Texte = "texte_": Tarif = "tarif_"
End With

 

[Ron de Bruin]

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

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

Hi Patrick

Repeat the addAttachment line with the other file name

--

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

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 are: 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"" (e-mail address removed)"
.Subject = ObjetMail
.TextBody = strbody
.addAttachment Debut & Scan HERE IS THE PROBLEM
.Send
Scan = "scan_": Texte = "texte_": Tarif = "tarif_"
End With

 

[...Patrick]

Thank you Ron !!!

Patrick

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

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

Hi Patrick

Repeat the addAttachment line with the other file name

--

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


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 are: 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"" (e-mail address removed)"
.Subject = ObjetMail
.TextBody = strbody
.addAttachment Debut & Scan HERE IS THE PROBLEM
.Send
Scan = "scan_": Texte = "texte_": Tarif = "tarif_"
End With