Envio de hoja de excel por correo pero con copia a otro destinatar

hola, !

... el siguiente codigo, para el envio de una hoja de excel por correo electronico
... como hago para enviar esta misma hoja con copia a otra persona, ademas de la persona que ya esta definida?

(hasta donde se) el metodo SendMail es para envios "rapidos" y no permite administrar otras propiedades del cliente de correos

op1: prueba a establecer como matriz las dos direcciones de destino (p.e.)
' otras lineas de tu codigo ... '
.SendMail Array("direccion 1", "direccion 2"), "Asunto"

op2: prueba poniendo en un rango las direcciones a donde necesites los envios (p.e.)
' otras lineas de tu codigo ... '
Dim Direcciones As Variant
Direcciones = Range("c11:c12")
.SendMail Direcciones, "Asunto"

op3: prueba a enviar tu correo, pero NO por el metodo SendMail
sino haciendo uso y referencia del modelo de objetos de OutLook (de office)
puedes ver ejemplos y descargar plantillas y complementos (AddIns) desde la pagina de Ron de Bruin:
Example Code for sending mail from Excel
http://www.rondebruin.nl/sendmail.htm

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
.SendMail "", _
"Listado"
On Error GoTo 0
.Close SaveChanges:=False
MsgBox "Listado enviado",
vbExclamation, "Prueba"
ActiveWorkbook.Sheets("Datos").CommandButton1.Enabled = True
ActiveWorkbook.Sheets("Datos").CommandButton2.Enabled = True
ActiveSheet.Unprotect Password:="123"
ActiveWorkbook.Sheets("Reporte").Activate
End With

HOLA Hector!!
EXCELENTE MUCHAS GRACIAS!!!!, ME FUNCIONO LA OPCION 1!!!!!

"Héctor Miguel" wrote:

hola, !

> ... el siguiente codigo, para el envio de una hoja de excel por correo electronico
> ... como hago para enviar esta misma hoja con copia a otra persona, ademas de la persona que ya esta definida?

(hasta donde se) el metodo SendMail es para envios "rapidos" y no permite administrar otras propiedades del cliente de correos

op1: prueba a establecer como matriz las dos direcciones de destino (p.e.)
' otras lineas de tu codigo ... '
.SendMail Array("direccion 1", "direccion 2"), "Asunto"

op2: prueba poniendo en un rango las direcciones a donde necesites los envios (p.e.)
' otras lineas de tu codigo ... '
Dim Direcciones As Variant
Direcciones = Range("c11:c12")
.SendMail Direcciones, "Asunto"

op3: prueba a enviar tu correo, pero NO por el metodo SendMail
sino haciendo uso y referencia del modelo de objetos de OutLook (de office)
puedes ver ejemplos y descargar plantillas y complementos (AddIns) desde la pagina de Ron de Bruin:
Example Code for sending mail from Excel
http://www.rondebruin.nl/sendmail.htm

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
> With Destwb
> .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
> On Error Resume Next
> .SendMail "", _
> "Listado"
> On Error GoTo 0
> .Close SaveChanges:=False
> MsgBox "Listado enviado",
> vbExclamation, "Prueba"
> ActiveWorkbook.Sheets("Datos").CommandButton1.Enabled = True
> ActiveWorkbook.Sheets("Datos").CommandButton2.Enabled = True
> ActiveSheet.Unprotect Password:="123"
> ActiveWorkbook.Sheets("Reporte").Activate
> End With