Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

¿Cómo enviar automáticamente un correo electrónico basado en el valor de una celda en Excel?

Author Siluvia Last modified

En Excel, puedes automatizar el proceso de envío de correos electrónicos basado en condiciones específicas, como el valor en una celda particular. Por ejemplo, podrías querer enviar automáticamente un correo electrónico a través de Outlook cuando el valor en la celda D7 exceda 200. Este tutorial demuestra cómo usar VBA (Visual Basic para Aplicaciones) para activar un correo electrónico en Outlook basado en el valor de una celda.

Enviar automáticamente un correo electrónico basado en el valor de una celda con código VBA

Enviar automáticamente un correo electrónico basado en el valor de una celda con código VBA

Por favor, sigue los siguientes pasos para enviar un correo electrónico basado en el valor de una celda en Excel.

1. En la hoja de cálculo donde necesitas enviar un correo electrónico basado en su valor de celda (aquí se dice que es la celda D7), haz clic derecho en la pestaña de la hoja y selecciona Ver Código desde el menú contextual. Ver captura de pantalla:

A screenshot of the context menu in Excel showing the View Code option for a worksheet

2. En la ventana emergente de Microsoft Visual Basic para Aplicaciones, copia y pega el siguiente código VBA en la ventana de código de la hoja.

Código VBA: Enviar correo electrónico a través de Outlook basado en el valor de una celda en Excel

Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set xRg = Intersect(Range("D7"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value > 200 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
    On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Notas:

1) En el código VBA, D7 y valor > 200 son la celda y el valor de la celda en base a los cuales se enviará el correo electrónico.
2) Cambia el cuerpo del correo electrónico según sea necesario en la línea xMailBody del código.
3) Reemplaza la Dirección de Correo Electrónico con la dirección del destinatario en la línea .To = "Dirección de Correo Electrónico".
4) Y especifica los destinatarios Cc y Bcc según sea necesario en las secciones .CC = “” y Bcc = “”.
5) Finalmente, cambia el asunto del correo electrónico en la línea .Subject = "enviar por prueba de valor de celda".

3. Presiona las teclas Alt + Q juntas para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

A partir de ahora, cuando el valor ingresado en la celda D7 sea mayor que 200, se creará automáticamente un correo electrónico con los destinatarios y cuerpo especificados en Outlook. Puedes hacer clic en el Enviar botón para enviar este correo electrónico. Ver captura de pantalla:

A screenshot showing an email draft in Outlook created automatically from an Excel cell value

Notas:

1. El código VBA solo funciona cuando usas Outlook como tu programa de correo electrónico.

2. Si los datos ingresados en la celda D7 son un valor de texto, también aparecerá la ventana de correo electrónico.

Envía fácilmente un correo electrónico a través de Outlook basado en los campos de la lista de correo creada en Excel:

La utilidad Enviar Correos Electrónicos de Kutools para Excel ayuda a los usuarios a enviar correos electrónicos a través de Outlook basados en la lista de correo creada en Excel.

A screenshot of Kutools for Excel's Send Emails utility interface

Kutools para Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfruta de funciones de IA gratis permanentemente! Consíguelo ahora

Artículos relacionados:

Las mejores herramientas de productividad para Office

🤖 Kutools AI Aide: Revoluciona el análisis de datos basado en: Ejecución inteligente | Generar código | Crear fórmulas personalizadas | Analizar datos y generar gráficos | Invocar Funciones mejoradas…
Funciones populares: Buscar, resaltar o identificar duplicados | Eliminar filas en blanco | Combinar columnas o celdas sin perder datos | Redondear...
Super BUSCARV: Búsqueda por varios criterios | Búsqueda por varios valores | Búsqueda en varias hojas | Coincidencia difusa....
Lista desplegable avanzada: Cree rápidamente una lista desplegable | Lista desplegable dependiente | Lista desplegable de selección múltiple....
Administrador de columnas: Agregar un número específico de columnas | Mover columnas | Alternar el estado de visibilidad de columnas ocultas | Comparar rangos y columnas...
Funciones destacadas: Cuadrícula de enfoque | Vista de diseño | Barra de fórmulas mejorada | Administrador de Libro de trabajo y Hoja de cálculo | Biblioteca de AutoTexto | Selector de fechas | Combinar Datos | Cifrar/Descifrar celdas | Enviar correo electrónico por lista | Super Filtro | Filtro especial (filtrar celdas con fuente en negrita/cursiva/tachado...)...
Los15 principales conjuntos de herramientas:12 herramientas de texto (Agregar texto, Eliminar caracteres específicos, ...) | Más de50 tipos de gráficos (Diagrama de Gantt, ...) | Más de40 fórmulas prácticas (Calcular edad basada en la fecha de nacimiento, ...) |19 herramientas de inserción (Insertar código QR, Insertar imagen desde ruta, ...) |12 herramientas de conversión (Convertir a palabras, Conversión de moneda, ...) |7 herramientas de combinar y dividir (Combinar filas avanzado, Dividir celdas, ...) ... y más
Utiliza Kutools en tu idioma preferido: admite inglés, español, alemán, francés, chino y más de40 idiomas adicionales.

Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...

Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo

  • Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
  • ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!

Todos los complementos de Kutools. Un solo instalador

El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.

Excel Word Outlook Tabs PowerPoint
  • Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
  • Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
  • Mejor juntos: productividad optimizada en todas las aplicaciones de Office
  • Prueba completa de30 días: sin registro ni tarjeta de crédito
  • La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos