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

23/06/2009 - 17:56 por Doors | Informe spam
Buenas amigos!,
Una consulta, tengo el siguiente código, para el envio de una hoja de excel
por correo electronico, la duda que tengo es como hago para enviar esta misma
hoja con copia a otra persona, ademas de la persona que ya esta definida??

Muchas Gracias!!

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
.SendMail "cuenta@hotmail.com", _
"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
 

Leer las respuestas

#1 Héctor Miguel
23/06/2009 - 19:38 | Informe spam
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

Preguntas similares