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
.Body = Range("Envío Estado de cuenta").Value
.Attachments.Add ActiveWorkbook.FullName
.Send
.Close SaveChanges:=False
End With
End Sub
parece que estás haciendo los cambios en ActiveWorkbook en vez de en el correo
cambia ese With ActiveWorkbook por With OutMail
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 OutMail
.To = Range("C5").Value
.CC = Range("H6").Value
.BCC = ""
.Subject = Range("C6").Value
.Body = Range("Envío Estado de cuenta").Value
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
' entiendo qeu lo que quieres cerrar es el libro que acabas de crear
ActiveWorkbook.Close SaveChanges:=False
End Sub
------
Ya sé Excel, pero necesito más.