¿Cómo enviar un correo electrónico si se modifica una celda específica en Excel?

Este artículo trata sobre cómo enviar un correo electrónico a través de Outlook cuando se modifica una celda en un rango específico en Excel.

Enviar correo electrónico si se modifica una celda en un rango específico con código VBA

Enviar correo electrónico si se modifica una celda en un rango específico con código VBA

Si necesita crear automáticamente un nuevo correo electrónico con el libro de trabajo activo adjunto cuando se modifica una celda en el rango A2:E11 en una hoja de cálculo específica, el siguiente código VBA puede ayudarle.

1. En la hoja de cálculo en la que necesita enviar un correo electrónico basado en su celda modificada en un rango específico, haga clic derecho en la pestaña de la hoja y luego haga clic en Ver Código en el menú contextual. Ver captura de pantalla:

2. En la ventana emergente de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código VBA en la ventana de Código.

Código VBA: Enviar correo electrónico si se modifica una celda en un rango especificado en Excel

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
    Dim xRgSel As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xMailBody As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xRg = Range("A2:E11")
    Set xRgSel = Intersect(Target, xRg)
    ActiveWorkbook.Save
    If Not xRgSel Is Nothing Then
        Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
            " in the worksheet '" & Me.Name & "' were modified on " & _
            Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
            " by " & Environ$("username") & "."

        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            .Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xRgSel = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Notas:

3. Presione simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

A partir de ahora, cualquier celda en el rango A2:E11 que se modifique generará un nuevo correo electrónico con el libro actualizado adjunto. Y todos los campos especificados, como el asunto, el destinatario y el cuerpo del correo electrónico, se enumerarán en el correo. Por favor, envíe el correo.

Nota: El código VBA solo funciona si está utilizando Outlook como su programa de correo electrónico.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo enviar automáticamente un correo electrónico basado en el valor de una celda en Excel?
• ¿Cómo enviar un correo electrónico a través de Outlook cuando se guarda el libro de trabajo en Excel?
• ¿Cómo enviar un correo electrónico si se hace clic en un botón en Excel?
• ¿Cómo enviar un correo electrónico si se cumple la fecha límite en Excel?
• ¿Cómo enviar un recordatorio o notificación por correo electrónico si se actualiza el libro de trabajo en Excel?