Enviar una copia de libro de trabajo por correo vba excel
Me pueden orientar un poco por favor
Quiero ver si puedo generar una macro o por vba excel
Enviar una copia de un libro por correo
He leído un poco y encontré algo pero esta desactualizado
Sub SendWorkBook ()
'Actualización 20131209
Dim OutlookApp como objeto
Dim OutlookMail como objeto
Establecer OutlookApp = CreateObject ("Outlook.Application")
Establecer OutlookMail = OutlookApp.CreateItem (0)
On Error Resume Next
Con OutlookMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "función kte"
.Cuadro = "Hola, por favor revisa y lee este documento, gracias".
.Attachments.Add Application.ActiveWorkbook.FullName
.Enviar
Terminar con
Establecer OutlookMail = Nothing
Establecer OutlookApp = Nothing
End Sub
.to = ""
.CC = ""
.BCC = ""
.Subject = "función kte"
.Cuadro = "Hola.
2 Respuestas
Te anexo una versión para enviar el libro activo.
Completa la macro con lo siguiente:
"nuevo" por el nombre del archivo que quieras ponerle
"Asunto" por el asunto que quieras que lleve el corre
"[email protected]" por el correo del destinatario
Sub Enviar_Libro_Activo()
'Por.Dante Amor
ruta = ThisWorkbook.Path & "\"
arch = "nuevo.xlsm"
ActiveWorkbook.SaveCopyAs Filename:=ruta & arch
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = "[email protected]" 'Destinatarios
dam.Subject = "Asunto"
dam.body = "Hola, por favor revisa y lee este documento, gracias"
Dam. Attachments.Add ruta & arch 'archivo
dam. Send 'Mostrar correo
MsgBox "Archivo enviado"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
