Macro per enviar correu electrònic des d'Excel (5 exemples adequats)

Hugh West

16-10-2023 Macros i amp; Excel VBA
  • Comparteix Això
Hugh West

En aquest article, us mostrarem 5 Macro per enviar correu electrònic des de Excel . Per demostrar els nostres mètodes, hem seleccionat un conjunt de dades amb 3 columnes : " Nom ", " Correu electrònic " i " Ciutat ”.

Baixeu el quadern de pràctiques

Utilitzar Macro per enviar Email.xlsm

5 maneres per utilitzar la macro per enviar correu electrònic des d'Excel

1. Ús de la biblioteca d'objectes d'Outlook per enviar correu electrònic

Per a la primera macro , habilitarem “ Microsoft Outlook 16.0 Object Library ” per enviar un correu electrònic des de Excel . A més, hem d'iniciar sessió al nostre compte Outlook a Excel .

Passos:

Al principi, obrirem la finestra Visual Basic .

  • En primer lloc, des de la pestanya Desenvolupador >>> seleccioneu Visual Basic .

Com a alternativa, podeu prémer ALT + F11 per mostrar la finestra VBA .

  • En segon lloc, des de Eines >>> seleccioneu " Referències... ".

Apareixerà un nou quadre de diàleg .

  • En tercer lloc, seleccioneu " Microsoft Outlook 16.0 Object Library " i premeu D'acord .

Així, habilitarem Outlook Object Library .

  • Els de Insereix >>> seleccioneu Mòdul .

Escrivim el nostre codi aquí.

  • Després, escriviu el següentcodi. 
4256

Desglossament del codi VBA

  • En primer lloc, som cridant al nostre Sub procediment Macro_Send_Email .
  • En segon lloc, estem declarant els tipus de variable .
  • En tercer lloc, Torneu a seleccionar Outlook com a Aplicació de correu .
  • A continuació, seleccionem la nostra adreça d'enviament de correu electrònic des de la cel·la C5 .
  • Després d'això, el contingut del correu electrònic s'estableix al nostre codi.
  • Finalment, aquí s'utilitza " VBA Display Property " per mostrar el nostre correu electrònic . Per tant, haurem de prémer Envia manualment per enviar els correus electrònics . A més, podem utilitzar " Envia la propietat " per enviar correus electrònics sense mostrar-los.
  • Després, Desa i tanqueu el mòdul .

Ara, executarem el codi.

  • En primer lloc, des del Pestanya Desenvolupador >>> seleccioneu Macros .

Apareixerà el quadre de diàleg Macro .

  • En segon lloc , seleccioneu el nostre Subprocediment " Macro_Send_Email ".
  • Finalment, premeu Executar .

Després d'executar el codi, veurem la finestra correu electrònic . Podem fer clic a Envia . Per tant, us hem mostrat el primer mètode per enviar un correu electrònic des de excel mitjançant VBA .

Llegir més: Enviar correu electrònic des d'Excel VBA sense Outlook (4 exemples adequats)

2. Macro per enviar correu electrònic des del compte de Gmaila Excel

Per a aquest mètode, necessitem accés a l'aplicació menys segur des del compte Gmail . A més, haurem d'habilitar Microsoft CDO al menú Referències .

Passos:

  • En primer lloc, tal com es mostra al primer mètode , obre el quadre de diàleg Referències .
  • En segon lloc, seleccioneu “ Microsoft CDO for Windows 2000 Library ” i premeu D'acord .

  • En tercer lloc, aneu a Seguretat des del vostre Compte de Google configuració .
  • Finalment, activeu Accés a aplicacions menys segurs .

Ara introduirem el nostre codi Macro .

  • En primer lloc, com es mostra al mètode 1 , obre la finestra Mòdul i escriviu aquest codi. 
4903

Desglossament del codi VBA

  • En primer lloc, anomenem al nostre Subprocediment Send_Gmail_Macro .
  • En segon lloc, declarem els tipus de variables .
  • En tercer lloc, establim el correu electrònic contingut al nostre codi.
  • A continuació, proporcionarem les nostres credencials d'inici de sessió . Heu d'escriure el vostre propi ID i contrasenya aquí.
  • Després, hem establert port a 465 .
  • Finalment, enviem el nostre correu electrònic .
  • A continuació, Desa i Executeu aquest codi.

Hem enviat correctament un correu electrònic a la nostra adreça.

Llegir més: Macro per enviar correu electrònic des d'Excel amb el cos (3Casos útils)

3. Envia correu electrònic a una llista de destinataris des d'una columna

Per al tercer mètode, anem a enviar correus electrònics a 7 persones que utilitzen Macro de Excel . Trobarem l'última fila del nostre conjunt de dades, per tant, el nostre codi funcionarà per a una llista més llarga. Enviarem correus electrònics des de l'interval cel·la C5:C10 .

Passos:

  • En primer lloc, tal com es mostra al mètode 1 , obre la finestra Mòdul i escriviu aquest codi. 
3663

Desglossament del codi VBA

  • En primer lloc, cridem al nostre Sub procediment Macro_Send_Email_From_A_List .
  • En segon lloc, estem declarant els tipus de variables .
  • En tercer lloc, seleccionem Outlook com a nostre Correu Aplicació .
  • A continuació, estem trobant la última fila , que és 10 per al nostre conjunt de dades.
  • Després, com el nostre correu electrònic comença des de la fila 5 hem introduït 5 com a valor inicial per a " variable z " . A més, els nostres correus electrònics es troben a la columna C , per tant hem introduït 3 dins de la propietat Cèl·lules .
  • A continuació, estem configurant el contingut del correu electrònic al nostre codi.
  • Finalment, aquí s'utilitza " .Display " per mostrar el nostre correu electrònic . Per tant, haurem de prémer Envia manualment per enviar els correus electrònics . A més, podem utilitzar “ .Send ” per enviar correu electrònic sense mostrar-lo.
  • A continuació, Desa i executa el mòdul .

Podem veure que tots els nostres correus electrònics es mostren a BCC . En conclusió, només podem prémer Envia per completar la nostra tasca.

Llegir més: Com enviar correu electrònic de la llista d'Excel (2 maneres efectives)

Lectures similars

  • Com enviar correu electrònic automàticament quan es compleix la condició a Excel
  • Com compartir fitxers d'Excel en línia (2 mètodes fàcils)
  • Envia un correu electrònic de recordatori automàticament des d'un full de treball d'Excel mitjançant VBA
  • Com enviar correu electrònic si es compleixen les condicions a Excel (3 mètodes fàcils)
  • Com habilitar Compartir el llibre de treball a Excel

4 Macro per enviar un full de treball mitjançant el correu electrònic

En aquesta secció, enviarem el full de treball actiu a la nostra persona objectiu. Aquí, haurem de triar la ubicació del nostre fitxer Excel .

Passos:

  • En primer lloc, tal com es mostra al mètode 1 , obre la finestra Mòdul i escriviu aquest codi. 
3937

Desglossament del codi VBA

  • En primer lloc, cridem al nostre Subprocediment Macro_Email_Single_Sheet .
  • En segon lloc, declarem els tipus de variables .
  • En tercer lloc, copiem el Full actiu i el desem com a <1 separat>Workbook .
  • Després, seleccionem Outlook com a Aplicació de correu .
  • A continuació, establim el correu electrònic contingut al nostre codi.
  • Després, hem adjuntat el full al correu electrònic .
  • Finalment , utilitzeu " .Display " per mostrar el nostre correu electrònic . Per tant, haurem de prémer Envia manualment per enviar els correus electrònics . A més, podem utilitzar “ .Send ” per enviar correu electrònic sense mostrar-se.
  • A continuació, Desa i Executeu el mòdul .

Veurem el nom del full a la finestra. Premeu Envia per completar la tasca.

Podem obrir el fitxer i verificar que el nostre codi funciona.

Llegir més: Com enviar un full de càlcul d'Excel editable per correu electrònic (3 mètodes ràpids)

5. Macro a Envia un correu electrònic en funció del valor de la cel·la

Per a l'últim mètode, hem canviat una mica el nostre conjunt de dades. Hem afegit la Columna Pagament Vegut " al conjunt de dades. Aquí, enviarem un correu electrònic que contingui la ciutat " Obama ". Podem veure clarament que la fila 5 la conté, per tant, enviarem un correu electrònic només a aquesta persona.

Pasos:

  • En primer lloc, com es mostra al mètode 1 , obre la finestra Mòdul i escriviu aquest codi. 
7256

Desglossament del codi VBA

  • En primer lloc, Tornem a cridar el nostre primer Subprocediment Send_Email_Condition .
  • En segon lloc, estem declarant els tipus i la configuració de Variable " Condicions " com el nostre Full .
  • En tercer lloc, es troba l'últim número fila . A més, el nostre valor comença des de fila 5 , per tant hem posat fila 5 a l'última fila del nostre codi.
  • A continuació, truqueu al nostre segon Subprocediment Send_Email_With_Multiple_Condition .
  • Després, seleccionarem Outlook com a Aplicació de correu .
  • A continuació, el contingut del correu electrònic s'estableix al nostre codi.
  • Aquí, adjuntem el fitxer Excel amb el correu electrònic mitjançant el mètode Fitxer adjunt .
  • Després d'això, aquí s'utilitza " .Display " per mostrar el nostre correu electrònic . Per tant, haurem de prémer Envia manualment per enviar els correus electrònics . A més, podem utilitzar “ .Send ” per enviar correu electrònic sense mostrar-se.
  • A continuació, Desa i Executeu el mòdul .

En conclusió, us hem mostrat un altre mètode per enviar un correu electrònic que utilitza VBA Macro des de Excel .

Llegiu més: Envia automàticament correus electrònics des d'Excel en funció del contingut de la cel·la (2 mètodes)

Secció de pràctiques

Hem afegit conjunts de dades de pràctica per a cada mètode a Excel fitxer.

Conclusió

Us hem mostrat 5 mètodes per utilitzar Macro per envieu un correu electrònic des de Excel . Gràcies per llegir, segueix excel·lent!

Publicació anterior Com eliminar l'últim dígit a Excel (6 mètodes ràpids)
Següent post Com esborrar l'àrea d'impressió a Excel (2 maneres senzilles)

Hugh West és un entrenador i analista d'Excel molt experimentat amb més de 10 anys d'experiència en el sector. És llicenciat en Comptabilitat i Finances i Màster en Administració i Direcció d'Empreses. Hugh té una passió per l'ensenyament i ha desenvolupat un enfocament pedagògic únic que és fàcil de seguir i entendre. El seu coneixement expert d'Excel ha ajudat a milers d'estudiants i professionals de tot el món a millorar les seves habilitats i a destacar en les seves carreres. A través del seu bloc, Hugh comparteix els seus coneixements amb el món, oferint tutorials d'Excel gratuïts i formació en línia per ajudar les persones i les empreses a assolir tot el seu potencial.