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