Como enviar un correo electrónico en Outlook con VBA?

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

Aquí tes unha nota que recibimos dun lector.

Grazas pola túa útil axuda de codificación de Outlook. Pregúntome se podes compartir algún código para axudar a automatizar o envío dun correo electrónico en Outlook. Sei que hai varias formas de enviar mensaxes recorrentes, pero estou especialmente interesado en usar VBA para esta tarefa.

Grazas pola pregunta. O envío automático de correos electrónicos parece estar entre as tarefas máis útiles e populares que podes automatizar usando VBA. Sigue lendo para obter máis detalles e un script sinxelo para comezar aquí.

Escribir VBA para enviar correos electrónicos de Outlook

No exemplo bastante sinxelo a continuación, cubriremos os seguintes pasos:

1. En primeiro lugar, usaremos o modelo de obxectos de VBA Outlook para crear un novo elemento de correo electrónico.
2. A continuación, imos establecer a importancia da mensaxe, os destinatarios (separados por punto e coma) e o estilo e contido do texto do corpo.
3. Despois mostraremos a mensaxe na súa aplicación Microsoft Outlook.
4. Por último, imos enviarllo aos destinatarios.

Aquí tes o código VBA sinxelo para crear e enviar correos electrónicos sinxelos automaticamente. Teña en conta que debe mellorar facilmente este script para incluír ficheiros adxuntos, tarefas, etc.', pero imos comezar cun script moi 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

Atallo de macros de Outlook VBA

Quizais queiras asociar o código VBA que acabas de escribir cun botón de comando en Outlook. Isto permitirache inicialo facilmente desde un atallo situado na cinta de Outlook.

Aquí tes como facelo:

1. Primeiro, vai adiante e abre Microsoft Outlook.
2. Preme Ficheiro e selecciona Opcións
3. Agora vai adiante e selecciona Personalizar cinta.
4. Na sección Personalizar a cinta, verá a caixa de lista Escolla comandos desde.
5. Seleccione Macros
6. A continuación, seleccione o seu código VBA recén creado, no noso caso o nome debería ser SendMail.
7. A continuación, prema Engadir e despois Aceptar. Opcionalmente, pode querer asignar unha icona á súa macro.
8. A túa macro estará dispoñible na barra de ferramentas de acceso rápido na parte superior esquerda da túa aplicación de Outlook.

Posibles problemas coa configuración de macros de VBA

É posible que teñas que axustar a túa macro de Outlook para executar macros. Se é así, aquí tes como facelo.