Com enviar un correu electrònic a Outlook amb VBA?

Actualitzat: agost de 2021; Aplicable a Microsoft Outlook 365 / 2019 / 2016

Aquí teniu una nota que vam rebre d'un lector.

Gràcies per la vostra ajuda molt útil per a la codificació d'Outlook. Em pregunto si podeu compartir algun codi per ajudar a automatitzar l'enviament d'un correu electrònic a Outlook? Sé que hi ha diverses maneres d'enviar missatges recurrents, però estic especialment interessat a utilitzar VBA per a aquesta tasca.

Gràcies per la pregunta. L'enviament automàtic de correus electrònics sembla ser una de les tasques més útils i populars que podeu automatitzar amb VBA. Continueu llegint per obtenir més detalls i un script senzill per començar aquí.

Escriptura de VBA per enviar correus electrònics d'Outlook

En l'exemple més aviat senzill següent, cobrirem els passos següents:

1. En primer lloc, utilitzarem el model d'objectes de VBA Outlook per crear un nou element de correu electrònic.
2. A continuació, establirem la importància del missatge, els destinataris (separats per punt i coma) i l'estil i el contingut del text del cos.
3. A continuació, mostrarem el missatge a la vostra aplicació de Microsoft Outlook.
4. Finalment, seguirem endavant i l'enviarem als destinataris.

Aquí teniu el codi VBA senzill per crear i enviar correus electrònics senzills automàticament. Tingueu en compte que heu de millorar fàcilment aquest script per incloure fitxers adjunts, tasques, etc., però comencem amb un script molt bàsic.

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

Drecera de macro d'Outlook VBA

És possible que vulgueu associar el codi VBA que acabeu d'escriure amb un botó d'ordres a l'Outlook. Això us permetrà iniciar-lo fàcilment des d'una drecera col·locada a la cinta d'Outlook.

A continuació s'explica com fer-ho:

1. Primer, aneu endavant i obriu Microsoft Outlook.
2. Premeu Fitxer i seleccioneu Opcions
3. Ara seguiu endavant i seleccioneu Personalitza la cinta.
4. A la secció Personalitza la cinta, notareu el quadre de llista Tria les ordres del.
5. Seleccioneu Macros
6. A continuació, seleccioneu el vostre codi VBA acabat de crear, en el nostre cas el nom hauria de ser SendMail.
7. A continuació, premeu Afegeix i després D'acord. Opcionalment, podeu assignar una icona a la vostra macro.
8. La vostra macro estarà disponible a la barra d'eines d'accés ràpid a la part superior esquerra de l'aplicació d'Outlook.

Possibles problemes amb la configuració de macro VBA

Pot ser que s'hagi d'ajustar la configuració de la macro d'Outlook per executar macros. Si és així, aquí teniu com fer-ho.