Adding a BCC and a second recipient to E-Mail Commands
 

Hi

I am using the following code (this is a snippett) to e mail a file automatically to
someone:

'set up spreadsheet with data

Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & file
.SendMail ", _
etitle
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
' Run ("mailmessage")
Sheets("input").Select
Application.ScreenUpdating = True


I would like to add a second recippient and a BCC (or CC), so that there are three e mail
addreses receiving it.

Can somene tell me the exact code to accomplish this please?

Thank you very much.

Regards

John Baker