Macro para enviar correo electrónico desde Excel (5 exemplos axeitados)

Hugh West

16-10-2023 Macros e amp; Excel VBA
  • Comparte Isto
Hugh West

Neste artigo, mostrarémosche 5 Macro para enviar correo electrónico desde Excel . Para demostrar os nosos métodos, seleccionamos un conxunto de datos con 3 columnas : " Nome ", " Correo electrónico " e " Cidade ”.

Descargar Practice Workbook

Usar Macro para enviar Email.xlsm

5 xeitos para usar a macro para enviar correo electrónico desde Excel

1. Uso da biblioteca de obxectos de Outlook para enviar correo electrónico

Para a primeira macro , imos habilitar “ Biblioteca de obxectos de Microsoft Outlook 16.0 ” para enviar un correo electrónico desde Excel . Ademais, necesitamos iniciar sesión na nosa conta Outlook en Excel .

Pasos:

Ao principio, imos abrir a xanela Visual Basic .

  • En primeiro lugar, desde a pestana Desenvolvedor >>> seleccione Visual Basic .

Como alternativa, pode premer ALT + F11 para mostrar a xanela VBA .

  • En segundo lugar, de Ferramentas >>> seleccione “ Referencias... ”.

Aparecerá unha nova caixa de diálogo .

  • En terceiro lugar, seleccione " Biblioteca de obxectos de Microsoft Outlook 16.0 " e prema Aceptar .

Así, activaremos Biblioteca de obxectos de Outlook. .

  • Os desde Inserir >>> seleccione Módulo .

Escribamos o noso código aquí.

  • Despois diso, escriba o seguintecódigo. 
6935

Desglose do código VBA

  • En primeiro lugar, estamos chamando ao noso Subprocedemento Macro_Send_Email .
  • En segundo lugar, estamos declarando os tipos de variables .
  • En terceiro lugar, " volver a seleccionar Outlook como a nosa Aplicación de correo .
  • Entón, seleccionamos o noso enderezo de correo de envío da célula C5 .
  • Despois diso, o contido do correo electrónico establécese no noso código.
  • Finalmente, aquí úsase " Propiedade de visualización de VBA " para mostrar o noso correo electrónico . Polo tanto, teremos que premer Enviar manualmente para enviar os correos electrónicos . Ademais, podemos usar " Propiedade de envío " para enviar correos electrónicos sen mostrar.
  • Despois diso, Gardar e pecha o Módulo .

Agora, imos Executar o código.

  • En primeiro lugar, desde o Pestana Desenvolvedor >>> seleccione Macros .

Aparecerá o cadro de diálogo Macro .

  • En segundo lugar , seleccione o noso Subprocedemento " Macro_Send_Email ".
  • Finalmente, prema Executar .

Despois de executar o código, veremos a xanela correo electrónico . Podemos facer clic en Enviar . Así, mostrámosche o primeiro método para enviar un e-mail desde excel usando VBA .

Ler máis: Enviar correo electrónico desde Excel VBA sen Outlook (4 exemplos axeitados)

2. Macro para enviar correo electrónico desde a conta de Gmailen Excel

Para este método, necesitamos acceso á aplicación menos seguro desde a conta Gmail . Ademais, teremos que activar Microsoft CDO no menú Referencias .

Pasos:

  • En primeiro lugar, como se mostra no primeiro método , abra o cadro de diálogo Referencias .
  • En segundo lugar, seleccione “ Microsoft CDO for Windows 2000 Library ” e prema Aceptar .

  • En terceiro lugar, vai a Seguridade desde a túa Conta de Google configuración .
  • Por último, activa Acceso a aplicacións menos seguras .

Agora, introduciremos o noso código Macro .

  • En primeiro lugar, como se mostra no método 1 , abra a xanela Módulo e escriba este código. 
9626

Desglose do código VBA

  • En primeiro lugar, chamamos ao noso Subprocedemento Send_Gmail_Macro .
  • En segundo lugar, declaramos os tipos de variables .
  • En terceiro lugar, establecemos o correo electrónico contido no noso código.
  • Entón, proporcionaremos as nosas credenciais de inicio de sesión . Debes escribir aquí o teu propio ID e contrasinal .
  • Despois diso, configuramos o porto a 465 .
  • Finalmente, enviamos o noso correo electrónico .
  • Entón, Gardar e Executar este código.

Enviamos con éxito un e-mail ao noso enderezo.

Ler máis: Macro para enviar correo electrónico desde Excel con corpo (3Casos útiles)

3. Enviar correo electrónico a unha lista de destinatarios desde unha columna

Para o terceiro método, imos enviar correos electrónicos a 7 persoas que usan Macro de Excel . Atoparemos a última fila do noso conxunto de datos, polo que o noso código funcionará para unha lista máis longa. Enviaremos correos electrónicos desde o intervalo célula C5:C10 .

Pasos:

  • En primeiro lugar, como se mostra no método 1 , abra a xanela Módulo e escriba este código. 
5960

Desglose do código VBA

  • En primeiro lugar, chamamos ao noso Sub procedemento Macro_Send_Email_From_A_List .
  • En segundo lugar, estamos declarando os tipos de variables .
  • En terceiro lugar, seleccionamos Outlook como o noso Correo Aplicación .
  • Entón, atopamos a última fila , que é 10 para o noso conxunto de datos.
  • Despois diso, como o noso correo electrónico comeza a partir da fila 5 introducimos 5 como valor inicial para “ variable z ” . Ademais, os nosos correos electrónicos están na columna C , polo que introducimos 3 dentro da propiedade Células .
  • Entón, configuramos o contido do correo electrónico no noso código.
  • Finalmente, aquí úsase “ .Mostrar ” para mostrar o noso correo electrónico . Polo tanto, teremos que premer Enviar manualmente para enviar os correos electrónicos . Ademais, podemos usar " .Enviar " para enviar correo electrónico sen mostrar.
  • Entón, Gardar e Executar o módulo .

Podemos ver que todos os nosos correos electrónicos aparecen en BCC . En conclusión, simplemente podemos premer Enviar para completar a nosa tarefa.

Ler máis: Como enviar correo electrónico da lista de Excel (2 formas efectivas)

Lecturas similares

  • Como enviar correo electrónico automaticamente cando se cumpre a condición en Excel
  • Como compartir ficheiros de Excel en liña (2 métodos sinxelos)
  • Enviar correo electrónico de recordatorio automaticamente desde unha folla de cálculo de Excel usando VBA
  • Como enviar correo electrónico se se cumpren as condicións en Excel (3 métodos sinxelos)
  • Como habilitar Compartir o libro de traballo en Excel

4 Macro para enviar unha folla única mediante correo electrónico

Nesta sección, enviaremos a Folla de traballo activa á nosa persoa de destino. Aquí, teremos que escoller a localización do noso ficheiro Excel .

Pasos:

  • En primeiro lugar, como se mostra no método 1 , abra a xanela Módulo e escriba este código. 
3642

Desglose do código VBA

  • En primeiro lugar, chamamos ao noso Sub procedemento Macro_Email_Single_Shehe .
  • En segundo lugar, declaramos os tipos de variables .
  • En terceiro lugar, copiamos a Folla activa e gardámola como un <1 separado>Caderno de traballo .
  • Despois diso, seleccionamos Outlook como a nosa Aplicación de correo .
  • A continuación, configuramos o correo electrónico contido no noso código.
  • Despois diso, adxuntamos a Folla ao correo electrónico .
  • Finalmente , use " .Mostrar " para mostrar o noso correo electrónico . Polo tanto, teremos que premer Enviar manualmente para enviar os correos electrónicos . Ademais, podemos usar " .Enviar " para enviar correo electrónico sen mostrar.
  • A continuación, Gardar e Executar o módulo .

Veremos o nome da folla na xanela. Preme Enviar para completar a tarefa.

Podemos abrir o ficheiro e verificar que o noso código funciona.

Ler máis: Como enviar unha folla de cálculo de Excel editable por correo electrónico (3 métodos rápidos)

5. Macro para Enviar correo electrónico en función do valor da cela

Para o último método, cambiamos un pouco o noso conxunto de datos. Engadimos a columna " Pago Debido " ao conxunto de datos. Aquí, enviaremos un correo electrónico que conteña a cidade " Obama ". Podemos ver claramente que a fila 5 o contén, polo que imos enviar un e-mail só a esa persoa.

Pasos:

  • Primeiro, como se mostra no método 1 , abra a xanela Módulo e escriba este código. 
3164

Desglose do código VBA

  • En primeiro lugar, chamamos ao noso primeiro Subprocedemento Send_Email_Condition .
  • En segundo lugar, declaramos os tipos e a configuración de variables " Condicións " como a nosa Folla .
  • En terceiro lugar, atópase o último número fila . Ademais, o noso valor comeza desde fila 5 , polo que puxemos fila 5 ata a última fila do noso código.
  • Entón, chame ao noso segundo Subprocedemento Send_Email_With_Multiple_Condition .
  • Despois diso, seleccionaremos Outlook como a nosa Aplicación de correo .
  • Entón, o contido correo electrónico establécese no noso código.
  • Aquí, adxuntamos o ficheiro Excel co correo electrónico usando o método Anexo .
  • Despois diso, aquí úsase " .Mostrar " para mostrar o noso correo electrónico . Polo tanto, teremos que premer Enviar manualmente para enviar os correos electrónicos . Ademais, podemos usar " .Enviar " para enviar correo electrónico sen mostrar.
  • A continuación, Gardar e Executa o módulo .

En conclusión, mostrámosche outro método de enviar un correo electrónico usando Macro VBA de Excel .

Ler máis: Enviar correos electrónicos automaticamente desde Excel en función do contido da cela (2 métodos)

Sección de práctica

Engadimos conxuntos de datos de práctica para cada método en Excel ficheiro.

Conclusión

Mostramosche 5 métodos para usar Macro para envía un correo electrónico desde Excel . Grazas por ler, segue destacando!

Publicación anterior Como eliminar o último díxito en Excel (6 métodos rápidos)
Próxima publicación Como borrar a área de impresión en Excel (2 xeitos sinxelos)

Hugh West é un adestrador e analista de Excel altamente experimentado con máis de 10 anos de experiencia na industria. É Licenciado en Contabilidade e Finanzas e Máster en Administración de Empresas. Hugh ten unha paixón polo ensino e desenvolveu un enfoque docente único que é fácil de seguir e comprender. O seu coñecemento experto de Excel axudou a miles de estudantes e profesionais de todo o mundo a mellorar as súas habilidades e a destacar nas súas carreiras. A través do seu blog, Hugh comparte os seus coñecementos co mundo, ofrecendo titoriais de Excel gratuítos e formación en liña para axudar ás persoas e ás empresas a alcanzar todo o seu potencial.