¿Cómo enviar un correo electrónico en Outlook con VBA?

Actualizado: agosto de 2021; Aplicable a Microsoft Outlook 365 / 2019 / 2016

Aquí hay una nota que recibimos de un lector.

Gracias por su muy útil ayuda de codificación de Outlook. Me pregunto si puede compartir algún código para ayudar a automatizar el envío de un correo electrónico en Outlook. Sé que hay varias formas de enviar mensajes recurrentes, pero estoy específicamente interesado en usar VBA para esta tarea.

Gracias por la pregunta. El envío automático de correos electrónicos parece estar entre las tareas más útiles y populares que puede automatizar con VBA. Siga leyendo para obtener más detalles y un script simple para comenzar aquí.

Escribir VBA para enviar correos electrónicos de Outlook

En el ejemplo bastante simple a continuación, cubriremos los siguientes pasos:

1. En primer lugar, usaremos el modelo de objetos de Outlook de VBA para crear un nuevo elemento de correo electrónico.
2. Luego continuaremos y estableceremos la importancia del mensaje, los destinatarios (separados por punto y coma) y el estilo y contenido del texto del cuerpo.
3. Luego mostraremos el mensaje en su aplicación de Microsoft Outlook.
4. Por último, seguiremos adelante y lo enviaremos a los destinatarios.

Aquí está el código VBA simple para crear y enviar correos electrónicos simples automáticamente. Tenga en cuenta que debe mejorar fácilmente este script para incluir archivos adjuntos, tareas, etc., pero comencemos con un script muy básico.

Sub SendMail()
Dim MyEmail As MailItem
Set MyEmail = Application.CreateItem(olMailItem)

With MyEmail
.To = ""
.Importance = olImportanceHigh
.Subject = ""
.Body = ""
.BodyFormat = olFormatHTML
.Display
End With

'I purposely commented the next line, uncomment it by removing the "'" sign to send your email.
' MyEmail.Send
End Sub

Atajo de macro de Outlook VBA

Es posible que desee asociar el código VBA que acaba de escribir con un botón de comando en Outlook. Esto le permitirá iniciarlo fácilmente desde un acceso directo ubicado en la cinta de opciones de Outlook.

Así es como se hace:

1. Primero, continúe y abra Microsoft Outlook.
2. Presiona Archivo y luego selecciona Opciones
3. Ahora continúe y seleccione Personalizar cinta.
4. En la sección Personalizar cinta de opciones, verá el cuadro de lista Elegir comandos de.
5. Seleccionar macros
6. Luego, seleccione su código VBA recién creado, en nuestro caso, el nombre debe ser SendMail.
7. Luego presione Agregar y luego Aceptar. Opcionalmente, es posible que desee asignar un icono a su Macro.
8. Su macro estará disponible en la barra de herramientas de acceso rápido en la parte superior izquierda de su aplicación de Outlook.

Posibles problemas con la configuración de macros de VBA

Es posible que deba ajustar la configuración de macros de Outlook para poder ejecutar macros. Si es así, así es como se hace.