Macro para enviar Hoja activa de excel por outlook a los destinatarios descritos en varias celdas

2 envíos / 0 nuevos
Último envío
ROSA NELLY
Imagen de ROSA NELLY
Offline
última acción: Hace 1 mes 1 semana
alta: 13/07/2018 - 00:09
Puntos: 25
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

.Body = Range("Envío Estado de cuenta").Value

.Attachments.Add ActiveWorkbook.FullName

.Send

.Close SaveChanges:=False

 

End With

 

End Sub

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 2 días 35 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 9155
parece que estás haciendo los

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

 

 

Data Tools Suite
datos y tablas con Excel