Tengo una macro que envía el mismo documento por outlook, pero lo envía vacío
Tengo la siguiente macro que se ejecuta desde un archivo de solo lectura y no permite a los usuarios guardar cambios, entonces necesito que cuando se ejecute la macro me mande el archivo con los datos capturados del mismo pero manda el guardado sin datos.
Dim mi_Aplicacion As Object
Dim mi_Correos As Object
Windows("Reporte de Actividades.xlsm").Activate
Set mi_Aplicacion = CreateObject("Outlook.Application")
mi_Aplicacion.Session.logon
Set mi_Correos = mi_Aplicacion.CreateItem(0)
With mi_Correos
.To = "[email protected]"
.Subject = "Reporte Exitoso" & " " & Range("C4").Value & " " & TimeValue(Now)
.Body = Range("C3").Value & vbNewLine & Range("C4").Value & vbNewLine & Range("C5").Value & vbNewLine & Range("C6").Value & vbNewLine & Range("C7").Value
.Attachments.Add ActiveWorkbook.FullName
.DeleteAfterSubmit = False
.Send
End With
1 Respuesta
Respuesta de Programar Excel
-1
Esto te puede ayudar
Aca tienes mas sobre envio de mail con excel
