Adding extra email address to a single Worksheet

[Guest]

Hello from Steved

I am not sure how to add extra email address
I need to add 13 Thankyou.

Sub Mail_Crinel()
Dim wb As Workbook
Dim strdate As String

strdate = Format(Now, "dd-mm-yy")

Application.ScreenUpdating = False

Sheets("Paradox-Kilometres").Copy

Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells(1).Select
Application.CutCopyMode = False

Set wb = ActiveWorkbook
With wb


.SendMail "(e-mail address removed)", _
"Auckland Kilometres"

.Close False

End With

Application.ScreenUpdating = True
End Sub

 

[Dave Peterson]

You can put them into an array:

.SendMail Array("(e-mail address removed)", _
"(e-mail address removed)", _
"(e-mail address removed)"), _
"Auckland Kilometres"

 

[Ron de Bruin]

Hi Steved

See the Tip link on the mail pages
This is for the SendMail code

http://www.rondebruin.nl/mail/tips1.htm

 

[Guest]

Thankyou Gentleman.