Aquest tutorial il·lustrarà com utilitzar la macro d'Excel per enviar un correu electrònic automàticament. Podem configurar la nostra funció de correu mitjançant macros VBA . Per tant, utilitzant la macro VBA podem enviar un correu electrònic a diversos usuaris alhora. Hem de tenir Outlook instal·lat al nostre dispositiu per enviar correu electrònic automàticament amb una macro. Com que el codi que inserirem utilitzarà Outlook per enviar correus electrònics als destinataris.

Baixeu el quadern de pràctiques

Podeu baixar el quadern de pràctiques des d'aquí.

3 exemples adequats de macro d'Excel per enviar correu electrònic automàticament

Al llarg d'aquest article, demostrarem 3 exemples adequats d'ús de macro d'excel per enviar un correu electrònic automàticament als destinataris. Abans de començar a il·lustrar l'exemple, hem d'arreglar una cosa al nostre full d'excel. Completeu els passos següents abans d'aplicar la macro per enviar correu electrònic automàticament.

PASS:

• Primer, des del vostre conjunt de dades, aneu a la pestanya Desenvolupador . Seleccioneu l'opció Visual Basic .

• A continuació, aneu a la pestanya Eina i seleccioneu l'opció Referències .

• S'obrirà un quadre de diàleg nou anomenat " Referències – VBAProject ".
• Finalment, marqueu l'opció ' Biblioteca d'objectes de Microsoft Office 16.0 ' i feu clic a D'acord .

1. Apliqueu la macro VBA d'Excel per enviarCorreu electrònic automàticament basat en el valor de la cel·la

En primer lloc, aplicarem la macro VBA d'excel per enviar un correu electrònic automàticament en funció d'un valor de cel·la concret del nostre conjunt de dades. Per il·lustrar aquest exemple farem servir el conjunt de dades següent. Escriurem un codi que enviarà un correu electrònic automàticament si el valor de la cel·la D6 és superior a 400 .

Vegem els passos per dur a terme aquesta acció.

PASS:

• Per començar, dreta – feu clic a al full ' Basat en la cel·la '.
• A més, seleccioneu l'opció ' Mostra el codi '.

• L'acció anterior obrirà una finestra de codi VBA en blanc per a aquest full de treball. Una altra manera d'obrir aquesta finestra de codi és prémer Alt + F11 .
• A més, escriviu el codi següent a la finestra de codi:

6688

• A continuació, feu clic al botó Executa o premeu la tecla F5 per executar el codi.

• Apareixerà un quadre de diàleg nou anomenat Macros .
• Després, al camp Nom de la macro , seleccioneu la macro ' send_mail_outlook '.
• Ara feu clic al botó Executar .

• Finalment, a partir d'ara quan la cel·la valor a la cel·la D6 > 400 un correu electrònic a Outlook es generarà automàticament amb destinataris específics. Només hem de fer clic al botó Envia per enviar el correu electrònic.

LlegirMés: Envia automàticament correus electrònics des d'Excel basats en el contingut de la cel·la (2 mètodes)

2. Envia automàticament correus electrònics en funció de la data de venciment amb la macro VBA

A la segon mètode, utilitzarem la macro VBA d'Excel per enviar un correu electrònic automàticament si la data de venciment de qualsevol projecte s'acosta. Això és una cosa així com un recordatori. Utilitzem el conjunt de dades següent per il·lustrar aquest exemple. El conjunt de dades conté correus electrònics de diferents venedors, missatges i la data de venciment del seu projecte.

Segueix els passos següents per dur a terme aquest mètode.

PASS:

• Primer, feu clic amb el botó dret al full Data .
• A continuació, seleccioneu l'opció " Mostra el codi '.

• Obre una finestra de codi VBA en blanc per al full de treball actiu. També podem prémer Alt + F11 per obtenir aquesta finestra de codi.
• A continuació, inseriu el codi següent a aquesta finestra de codi:

5072

" aMailBody = "" aMailBody = aMailBody & "Hola " & zRgSendVal & CrLf aMailBody = aMailBody & "Missatge: " & aRgText.Offset(j - 1).Valor & CrLf = aMailBody aMailBody & "" Set aMailItem = aOutApp.CreateItem(0) With aMailItem .Subject = aMailSubject .To = zRgSendVal .HTMLBody = aMailBody .Display End With Set aMailItem = Nothing End If End If End If End If No Next>O

• Un nouApareixerà el quadre de diàleg.
• Després, al camp d'entrada d'aquest quadre de diàleg seleccioneu l'interval de columna de data de venciment D$5:$D$9 . A continuació, feu clic a D'acord .

• Apareixerà un quadre de diàleg més.
• A més, a al camp d'entrada, seleccioneu l'interval de columnes B$5:$B$9 que conté les adreces de correu electrònic i feu clic a D'acord .

• A més, apareixerà una finestra més. Seleccioneu l'interval de missatges $C$5:$C$9 al camp d'entrada de la finestra emergent.

• Al final , podem veure resultats com la imatge següent. Obtenim 3 correus electrònics que es creen automàticament en 3 finestres diferents d' Outlook . Això no crearà correu per a les dues primeres adreces de correu electrònic. Perquè la data de venciment d'aquests dos projectes s'ha acabat.

Llegir més: Com enviar correu electrònic automàticament des d'Excel basat en Data

Lectures similars

• [Resolt]: Comparteix el llibre de treball que no es mostra a Excel (amb passos senzills)
• Com enviar correu electrònic des de la llista d'Excel (2 maneres efectives)
• Com enviar un full de càlcul d'Excel editable per correu electrònic (3 mètodes ràpids)
• Macro per enviar correu electrònic des d'Excel (5 exemples adequats)
• Macro per enviar correu electrònic des d'Excel amb el cos (3 casos útils)

3. Utilitzeu la macro d'Excel per enviar correu electrònic automàticament amb fitxers adjunts

En l'últim exemple, veurem com podemdesenvolupar una macro d'Excel per enviar un correu electrònic automàticament amb fitxers adjunts. Suposem que tenim un fitxer adjunt a la imatge següent. Volem enviar aquest fitxer adjunt a través d'un correu electrònic mitjançant la macro VBA d'excel. Per fer-ho necessitem la ruta d'aquest fitxer excel. Aquests són els passos per fer-ho:

• Seleccioneu el fitxer ' Attachment.xlsx ' '.
• Feu clic a l'opció ' Copia el camí '.

• Per tant, la ruta del fitxer que obtenim:

Inserirem aquest camí al nostre codi de macro per enviar aquest fitxer per correu electrònic. Seguiu els passos següents per fer-ho.

PASS:

• En primer lloc, aneu a la pestanya Desenvolupador i seleccioneu l'opció Visual Basic .

• Una finestra nova anomenada " Projecte – S'obrirà VBAProject ".
• En segon lloc, feu clic amb el botó dret al nom del full.
• A continuació, seleccioneu Insereix > Mòdul .

• L'ordre anterior obrirà un VBA
• En tercer lloc, escriviu el codi següent en aquest mòdul:

1814

• A continuació, premeu la tecla F5 o feu clic al botó Executar per executar el codi.

• Per últim, el codi enviarà el fitxer adjunt als correus electrònics proporcionats al codi. El codi envia correus electrònics per Outlook . Per tant, feu clic al botó Permet per permetre que Outlook enviï el fitxer adjunt als correus electrònics proporcionats.

Llegir més: Com sol·licitar-loMacro per enviar correu electrònic des d'Excel amb fitxer adjunt

Conclusió

En conclusió, aquest article mostra 3 exemples d'ús d'excel VBA macro per enviar correu automàticament. Baixeu el full de treball de mostra que es proporciona en aquest article per posar a prova les vostres habilitats. Si teniu cap pregunta, deixeu un comentari al quadre següent. El nostre equip intentarà respondre el vostre missatge el més aviat possible. Estigueu atents a les solucions de Microsoft Excel més inventives en el futur.