|
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 |
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 |
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 |
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 |
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 |
| All times are GMT +1. The time now is 10:41 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com