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

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

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

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