Automatic email report!!!

[johnyjassi]

Hi Guys, I was working on this form where one single click i want to send reports to multiple users, I wrote the code, but when button is pressed it send the file to lotus notes then click send from there. Its fine but it opens multiple windows for multiple receivers. Is it possible to send report to all users at same time like in email one email address in To: box and rest of them in CC box. Below is my code:

Private Sub Command299_Click()
strSQL = "select [EmailAdd] from [Email Address]"
Set rs = CurrentDb.OpenRecordset(strSQL)
If Not rs.EOF Then
Do Until rs.EOF
DoCmd.SendObject acSendReport, "statusClosed", , rs!emailadd, , , "Weekly report", "", False
rs.MoveNext
Loop
End If
End Sub


Any help will be appreciated.
Thanks is advance