Macro de Excel para enviar correo electrónico automaticamente (3 exemplos adecuados)

Hugh West

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

Este tutorial ilustrará como usar a macro de Excel para enviar un correo electrónico automaticamente. Podemos configurar a nosa función de correo mediante macros VBA . Así, usando a macro VBA podemos enviar un correo electrónico a varios usuarios ao mesmo tempo. Debemos ter Outlook instalado no noso dispositivo para enviar correo electrónico automaticamente cunha macro. Porque o código que inseriremos usará Outlook para enviar correos electrónicos aos destinatarios.

Descargar Practice Workbook

Podes descargar o Practice Workbook desde aquí.

Enviar correo electrónico automaticamente.xlsm

3 Exemplos axeitados de macro de Excel para enviar correo electrónico automaticamente

Ao longo deste artigo, demostraremos 3 exemplos axeitados de uso de macros de Excel para enviar un correo electrónico automaticamente aos destinatarios. Antes de comezar a ilustrar o exemplo, necesitamos arranxar unha cousa na nosa folla de Excel. Complete os seguintes pasos antes de aplicar a macro para enviar correo electrónico automaticamente.

PASOS:

  • Primeiro, desde o seu conxunto de datos, vai á pestana Programador . Selecciona a opción Visual Basic .

  • A continuación, vai á pestana Ferramenta e selecciona a opción Referencias .

  • Abrirase un novo cadro de diálogo chamado ' Referencias – VBAProject '.
  • Finalmente, marque a opción ' Biblioteca de obxectos de Microsoft Office 16.0 ' e prema en Aceptar .

1. Aplicar a macro VBA de Excel para enviarCorreo electrónico automaticamente baseado no valor da cela

En primeiro lugar, aplicaremos a macro VBA de excel para enviar un correo electrónico automaticamente en base a un valor de cela particular do noso conxunto de datos. Para ilustrar este exemplo, utilizaremos o seguinte conxunto de datos. Escribiremos un código que enviará un correo electrónico automaticamente se o valor da cela da cela D6 é maior que 400 .

Vexamos os pasos para realizar esta acción.

PASOS:

  • Para comezar, dereito – faga clic en na folla ' Basado na cela '.
  • Ademais, selecciona a opción ' Ver código '.

  • A acción anterior abrirá unha xanela de código VBA en branco para esa folla de traballo. Outra forma de abrir esa xanela de código é premer Alt + F11 .
  • Ademais, escriba o seguinte código nesa xanela de código: 
4342
  • A continuación, faga clic no botón Executar ou prema a tecla F5 para executar o código.

  • Aparecerá unha nova caixa de diálogo chamada Macros .
  • Despois diso, no campo Nome da macro , seleccione a macro ' send_mail_outlook '.
  • Agora fai clic no botón Executar .

  • Finalmente, a partir de agora cando a cela valor na cela D6 > 400 un correo electrónico en Outlook xerarase automaticamente con destinatarios específicos. Temos que facer clic no botón Enviar para enviar o correo electrónico.

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

2. Envío automático de correos electrónicos en función da data de vencemento con macro VBA

No segundo método, utilizaremos a macro VBA de Excel para enviar un correo electrónico automaticamente se a data de vencemento de calquera proxecto está próxima. Isto é algo así como un recordatorio. Usamos o seguinte conxunto de datos para ilustrar este exemplo. O conxunto de datos contén correos electrónicos de diferentes vendedores, mensaxes e a data de vencemento do seu proxecto.

Sigue os pasos seguintes para realizar este método.

PASOS:

  • Primeiro, fai clic co botón dereito na folla Data .
  • A continuación, selecciona a opción ' Ver código '.

  • Abre unha xanela de código VBA en branco para a folla de traballo activa. Tamén podemos premer Alt + F11 para obter esa xanela de código.
  • A continuación, insira o seguinte código nesa xanela de código: 
3353

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

  • Agora, utiliza o botón Executar ou a tecla F5 para executar o código.

    • Unha novaAparecerá unha caixa de diálogo.
    • Despois, no campo de entrada dese cadro de diálogo, seleccione o intervalo da columna de data de vencemento D$5:$D$9 . A continuación, faga clic en Aceptar .

    • Aparecerá unha caixa de diálogo máis.
    • Ademais, en no campo de entrada, seleccione o intervalo de columnas B$5:$B$9 que contén os enderezos de correo electrónico e prema en Aceptar .

    • Ademais, aparecerá unha ventá máis. Seleccione o intervalo de mensaxes $C$5:$C$9 no campo de entrada da ventá emerxente.

    • Ao final , podemos ver resultados como a seguinte imaxe. Recibimos 3 correos electrónicos que se crean automaticamente en 3 diferentes ventás de Outlook . Isto non creará correo para os dous primeiros enderezos de correo electrónico. Porque a data de vencemento destes dous proxectos rematou.

    Ler máis: Como enviar correo electrónico automaticamente desde Excel en base a Data

    Lecturas similares

    • [Resolto]: Compartir o libro de traballo que non se mostra en Excel (con pasos sinxelos)
    • Como enviar correo electrónico desde a lista de Excel (2 formas efectivas)
    • Como enviar unha folla de cálculo de Excel editable por correo electrónico (3 métodos rápidos)
    • Macro para enviar correo electrónico desde Excel (5 exemplos adecuados)
    • Macro para enviar correo electrónico desde Excel con corpo (3 casos útiles)

    3. Usa a macro de Excel para enviar correos electrónicos automaticamente con anexos

    No último exemplo, veremos como podemosdesenvolver unha macro de Excel para enviar un correo electrónico automaticamente con anexos. Supoñamos que temos un anexo na seguinte imaxe. Queremos enviar este anexo a través dun correo electrónico mediante a macro VBA de Excel. Para iso necesitamos a ruta deste ficheiro de Excel. Estes son os pasos para iso:

    • Seleccione o ficheiro ' Attachment.xlsx ' '.
    • Fai clic na opción ' Copiar ruta '.

    • Entón, a ruta do ficheiro que obtemos:
    E:\Exceldemy\Attachment.xlsx

    Inseriremos este camiño no noso código de macro para enviar este ficheiro por correo electrónico. Siga os seguintes pasos para facelo.

    PASOS:

    • En primeiro lugar, vai á pestana Desenvolvedor e selecciona a opción Visual Basic .

    • Unha nova xanela chamada ' Proxecto: abrirase VBAProject '.
    • En segundo lugar, faga clic co botón dereito do rato no nome da folla.
    • A continuación, seleccione Inserir > Módulo .

    • O comando anterior abrirá un VBA
    • En terceiro lugar, escriba o seguinte código nese módulo: 
    6966
    • A continuación, prema a tecla F5 ou faga clic no botón Executar para executar o código.

    • Por último, o código enviará o anexo aos correos electrónicos proporcionados no código. O código envía correos electrónicos por Outlook . Entón, fai clic no botón Permitir para que Outlook envíe o anexo aos correos electrónicos indicados.

    Ler máis: Como solicitarMacro para enviar correo electrónico desde Excel con anexo

    Conclusión

    En conclusión, este artigo mostra 3 exemplos de uso de macros VBA de Excel para enviar correos automaticamente. Descarga a folla de traballo de mostra que se ofrece neste artigo para poñer a proba as túas habilidades. Se tes algunha dúbida, deixa un comentario na caixa de abaixo. O noso equipo tentará responder á túa mensaxe o antes posible. Estea atento ás solucións de Microsoft Excel máis inventivas no futuro.

    Publicación anterior Como imprimir etiquetas de código de barras en Excel (con 4 sinxelos pasos)
    Próxima publicación Excel COUNTIF con criterios Maior e Menor de

    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.