E-Mail File Q
I am trying to e-mail to 3 people a file on my PC, I got the attached code
from Ron De Bruin's site and tailored it somewhat, my difficulty is adding the 2 other names to the one shown - how do I do it? Thanks Sub Mail_Report() Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm") Application.ScreenUpdating = False Sheets("E-Mail").Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail ", _ "Go Large Report" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub |
E-Mail File Q
Hi John
http://www.rondebruin.nl/sendmail.htm#Tips For mailing to more people use this line. ..SendMail ", "), _ "This is the Subject line" -- Regards Ron de Bruin http://www.rondebruin.nl "John" wrote in message ... I am trying to e-mail to 3 people a file on my PC, I got the attached code from Ron De Bruin's site and tailored it somewhat, my difficulty is adding the 2 other names to the one shown - how do I do it? Thanks Sub Mail_Report() Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm") Application.ScreenUpdating = False Sheets("E-Mail").Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail ", _ "Go Large Report" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub |
E-Mail File Q
Thanks Ron - useful code
"Ron de Bruin" wrote in message ... Hi John http://www.rondebruin.nl/sendmail.htm#Tips For mailing to more people use this line. .SendMail ", "), _ "This is the Subject line" -- Regards Ron de Bruin http://www.rondebruin.nl "John" wrote in message ... I am trying to e-mail to 3 people a file on my PC, I got the attached code from Ron De Bruin's site and tailored it somewhat, my difficulty is adding the 2 other names to the one shown - how do I do it? Thanks Sub Mail_Report() Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm") Application.ScreenUpdating = False Sheets("E-Mail").Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail ", _ "Go Large Report" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub |
E-Mail File Q
Hi John
You can also use one of the templates to do this if you like http://www.rondebruin.nl/sendmail.htm#sheets -- Regards Ron de Bruin http://www.rondebruin.nl "John" wrote in message ... Thanks Ron - useful code "Ron de Bruin" wrote in message ... Hi John http://www.rondebruin.nl/sendmail.htm#Tips For mailing to more people use this line. .SendMail ", "), _ "This is the Subject line" -- Regards Ron de Bruin http://www.rondebruin.nl "John" wrote in message ... I am trying to e-mail to 3 people a file on my PC, I got the attached code from Ron De Bruin's site and tailored it somewhat, my difficulty is adding the 2 other names to the one shown - how do I do it? Thanks Sub Mail_Report() Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm") Application.ScreenUpdating = False Sheets("E-Mail").Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail ", _ "Go Large Report" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub |
All times are GMT +1. The time now is 12:19 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com