16/03/2009, 06:26
|
| | | Fecha de Ingreso: marzo-2009
Mensajes: 1
Antigüedad: 15 años, 1 mes Puntos: 0 | |
| Enviar rango excel por outlook
Hola a todos!!!
Vi esta macro y quisiera adaptarla a mis necesidades.
Necesito enviar un rango de celdas en el cuerpo de outlook en vez de un texto.
¿Alguien me puede ayudar a hacerlo?
Muchas gracias
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 = "direccionmail"
NewTask.Subject = "Hola"
NewTask.Body = "Gracias por tu ayuda"
NewTask.Send |