Macro para enviar Hoja activa de excel por outlook a los destinatarios descritos en varias celdas
Hola,
Realice esta instruccion para copiar la hoja activa a un nuevo libro copiando los datos del "destinatario" y con "copia para" de la misma hoja. Solo no Funciona. Pudierais ayudarme?. Gracias.
Sub Outlook_Co_Excel()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
ActiveSheet.Copy
With ActiveWorkbook
.OutMail
.To = Range("C5").Value
.CC = Range("H6").Value
.BCC = ""
.Subject = Range("C6").Value Seguir leyendo... sobre Macro para enviar Hoja activa de excel por outlook a los destinatarios descritos en varias celdas