Ver Mensaje Individual
  #1 (permalink)  
Antiguo 12/04/2007, 14:37
Avatar de Diega
Diega
 
Fecha de Ingreso: abril-2005
Mensajes: 71
Antigüedad: 19 años
Puntos: 0
Macro en Excel envio de Correo con Imagen

Hola

si alguien me puede ayudar , necesito para un rango de una hoja Excel, que la MACRO lo copie y lo pegue como imagen en el CUERPO del correo y envie ese mail (Microsoft Outlook)

tengo esta sentencia de envio, pero no se como hacer para que me pegue el rango que yo decida de una hoja de Excel como Imagen (Creo es donde le PUSE DIEGA)

Dim ol As Outlook.Application
Dim NewTask As Outlook.MailItem
Dim myattachments As Attachments
Set ol = New Outlook.Application
Set NewTask = ol.CreateItem(olMailItem)
Set myattachments = NewTask.Attachments
NewTask.BCC = "[email protected]"
NewTask.Subject = Range("K1").Value
NewTask.Body = "Diega"
NewTask.Send
End Sub