Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Logo Excel Avanzado

Enviar libro activo como adjunto en correo

| 7 comentarios

Es muy importante el envió de información se oportuna y sencilla. Un claro ejemplo es el uso de macros para realizar estos procesos que de alguna u otra manera nos parece cotidiano.

Como paso previo se debe incluir la activación de la referencia de objetos Outlook.

Herramientas > Referencias

CELDA1 300x84, Enviar libro activo como adjunto en correo

(Para mayor visualización de la imagen, hacer click en la misma)

Elegir: Microsoft OutLook (_Version_) Object Library.

celda21, Enviar libro activo como adjunto en correo

Versión 1.0: Ejecución de macro.

Cabe precisar que tiene algunas condiciones para poder ejecutar la macro que posteriormente se detallara:

- Tener el archivo grabado en la memoria con nombre.

- Tener definido la lista de usuarios a enviar el email.

 

Código VBA:

Sub enviar_adjunto()
'Declarar variables
Dim OLApp As Outlook.Application
Dim OLMail As Object

'Abrir la aplicacion Outlook y crear el email
Set OLApp = New Outlook.Application
Set OLMail = OLApp.CreateItem(0)
OLApp.Session.Logon

'Detallar los elementos del email, a quienes enviar, titulos y archivo a adjuntar
With OLMail
.To = "xxxx@tsi.net.pe; yyyy@gmail.com"
.CC = "zzzz@hotmail.com"
.BCC = ""
.Subject = "Archivo de datos"
.Body = "Buen dia se adjunta archivo de muestra"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With

'Limpiar datos almacenados en las variables definidas
Set OLMail = Nothing
Set OLApp = Nothing
End Sub

Ejecutando el código adjunto muestra la siguiente  imagen.

email11 300x181, Enviar libro activo como adjunto en correo

(Para mayor visualización de la imagen, hacer click en la misma)

 

Versión 1.2 : Ejecución mediante un Comand Button

Incluir el código en la Hoja activa con el evento seleccionado(en este caso "Click")

email32 300x150, Enviar libro activo como adjunto en correo

El botón se muestra en la hoja adjunta.

email2, Enviar libro activo como adjunto en correo

Ejecutando el código adjunto muestra la siguiente  imagen.

email11 300x181, Enviar libro activo como adjunto en correo

(Para mayor visualización de la imagen, hacer click en la misma)

 

Por:  Erik Quispe

7 comentarios

Deja una respuesta

Los campos requeridos estan marcados con *.