Cuadro de diálogo enviar por E-Mail. Objeto Application - Propiedad Dialog

Creo que una de las consultas que más se realizan para aprovechar la programación en VBA Excel tienen que ver con el envío programado de correos; vamos a ver a continuación como utilizar la Propiedad Dialog del Objeto Application para enviar por e-mail el archivo en el que estemos trabajando.

Propiedad Dialog: Habilita la presentación de cualquiera de las ventanas de opciones de Excel.

Desde Excel abrimos el Editor VBA (Alt + F11), insertamos un Módulo (Clic derecho sobre el proyecto Excel, Insertar, Módulo:

Ingresamos el siguiente código:

Sub EnviarporMail()

MsgBox "Se enviara una copia de este libro por e-mail"

Application.Dialogs(xlDialogSendMail).Show arg1:="oscarospina2515@gmail.com", arg2:="Consulta"

End Sub

Queda de la siguiente manera en el Módulo:

Veamos lo que significan cada una de las líneas:

  1. La primera línea Sub MostrarGuardarComo(), indica el inicio de la macro.
  2. En la segunda línea presentamos un mensaje a manera informativa para indicar que es lo que debe realizar el usuario a continuación.
  3. En la tercera línea estamos utilizando del Objeto Application la Propiedad Dialogs la cual nos permite ejecutar cualquier ventana de opciones de Excel; para establecer cuál es la venta, se indica entre paréntesis el nombre técnico de la ventana requerida, para este ejemplo, se trata de la ventana de Enviar por E-mail, de hecho, no muestra como tal una ventana de opciones de Excel, lo que hace es activar el cliente de Correo Electrónico que tengamos configurado por defecto en nuestro equipo para enviar por correo el archivo de Excel. Finalmente se da la instrucción Mostrar (Show)
  4. La última línea marca el fin (End) de la Macro o Subrutina (Sub).

Al ejecutar la macro, primero aparece el mensaje informativo:

Y luego de dar Aceptar a esta ventana aparece el cliente de correo electrónico con el archivo listo para ser enviado:

Descargar archivo de trabajo.

MÁS SOBRE

Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.

Siéntase libre de opinar

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc. Lo que no está permitido es insultar o escribir palabras ofensivas o soeces. Si lo hace, su comentario será rechazado por el sistema o será eliminado por el administrador. Por último, trate de no escribir en mayúscula sostenida, resulta muy difícil leerle.