enviar archivo adjunto a varios destinatarios.

Hola, vi en estos grupos el siguiente enlace:

http://groups.google.com.mx/group/m...09a626a5cc

La macro me ha venido muy bien pero me gustaria sabe si se puede
mandar el correo a varios destinatarios. He probado a duplicar el
mandato, pero lo que hace la macro es mandar dos correos (yo quiero
que mande uno solo a los dos destinatarios) Me funciona perfectamente,
pero quiero, si se puede hacer, poder mandar un solo correo a varios
destinatarios. Tambien, de paso, me gustaria saber si se puede poner
el "chivato" de lectura.

Aquí les dejo lo que tengo:

Sub cercanias()

If MsgBox("Esta a punto de envíar un correo automático, para completar
esta operacion, Pulsar aceptar", vbOKCancel) = vbOK Then
Sheets("H.CALLE").Select
Sheets("H.CALLE").Copy
ActiveSheet.Unprotect "xxxx"
Selection.Locked = True
ActiveSheet.Protect "xxxx"
Dim wb As Workbook
Dim strdate As String
Dim stEmail As String
strdate = Format(Now, "dd-mm-yy h-mm")
strEmail = "abcdef@gmail.com"
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Name & " " & strdate & ".xls"
.SendMail strEmail, "Peticion de transporte"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End If
If MsgBox("Desea enviar una copia a cercanias? para completar esta
operacion, Pulsar aceptar", vbOKCancel) = vbOK Then
strdate = Format(Now, "dd-mm-yy h-mm")
strEmail = "ghijk@gmail.com"
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs ThisWorkbook.Name & " " & strdate & ".xls"
.SendMail strEmail, "Peticion de transporte"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End If


End Sub