| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
send mail from excel 2000 and Outlook Express
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
send mail from excel 2000 and Outlook Express
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
send mail from excel 2000 and Outlook Express
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
send mail from excel 2000 and Outlook Express
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 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
send mail from excel 2000 and Outlook Express
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Fw: send two or more files with Excel and Outlook Express | Excel Discussion (Misc queries) | |||
| How can I use Outlook express to send mail rather than Outlook by VBA code | Excel Programming | |||
| How can I use Outlook express to send mail rather than Outlook by VBA code | Excel Programming | |||
| Cannot send out Excel workbook through Outlook Express | Excel Programming | |||
| Send to Outlook 2000 not Outlook Express | Excel Discussion (Misc queries) | |||
![...Patrick[_7_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
