E-Mail File Q

[John]

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 "(e-mail address removed)", _
"Go Large Report"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub

 

[Ron de Bruin]

Hi John

http://www.rondebruin.nl/sendmail.htm#Tips

For mailing to more people use this line.
..SendMail Array("(e-mail address removed)", "(e-mail address removed)"), _
"This is the Subject line"

 

[John]

Thanks Ron - useful code

Hi John

http://www.rondebruin.nl/sendmail.htm#Tips

For mailing to more people use this line.
.SendMail Array("(e-mail address removed)", "(e-mail address removed)"), _
"This is the Subject line"

 

[Ron de Bruin]

Hi John

You can also use one of the templates to do this if you like
http://www.rondebruin.nl/sendmail.htm#sheets