Cómo enviar automáticamente una notificación por correo electrónico de Outlook cuando se actualiza una hoja de cálculo de Excel específica

Cada vez que actualice una hoja de cálculo de Excel específica, si siempre necesita enviar una notificación por correo electrónico a destinatarios específicos, puede utilizar el método presentado en este artículo.

Algunos usuarios solicitan una solución para permitir que MS Excel envíe automáticamente una notificación por correo electrónico de Outlook a personas específicas cada vez que actualicen una hoja de trabajo específica, ya que a menudo se olvidan de enviar dicho correo electrónico. Ahora, a continuación, guiaremos cómo lograr esta función con código VBA.

Envío automático de un correo electrónico cuando se actualiza una hoja de cálculo de Excel específica

1. En primer lugar, obtenga acceso al libro de Excel de origen que contiene la hoja de trabajo específica.
2. Luego, en la ventana de MS Excel, diríjase al menú "Archivo" y seleccione "Opciones".
3. A continuación, en la ventana "Opciones de Excel", cambie a la pestaña "Centro de confianza" y haga clic en el botón "Configuración del centro de confianza".
4. Posteriormente, en la nueva ventana, cambie a la pestaña "Configuración de macros", en la que debe seleccionar "Habilitar todas las macros".
5. Después de eso, vaya a la pestaña "Opciones de privacidad" y habilite la función "Eliminar información personal de las propiedades del archivo al guardar".
6. Luego, haga clic en varios "Aceptar" para guardar esta configuración.
7. Después de retroceder al libro de Excel, acceda a la hoja de trabajo específica.
8. Haga clic con el botón derecho en el nombre de la hoja de trabajo en la barra lateral inferior y elija "Ver código".
9. Después de eso, copie el siguiente código VBA en el proyecto de la hoja específica.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nConfirmation As Integer
    Dim objNewWorkbook As Excel.Workbook
    Dim objNewWorksheet As Excel.Worksheet
    Dim objOutlookApp As Object
    Dim objMail As Object
 
    nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
 
    If nConfirmation = vbYes Then
       ActiveWorkbook.Save

       On Error Resume Next
       Set objOutlookApp = CreateObject("Outlook.Application")
       Set objMail = objOutlookApp.CreateItem(olMailItem)
  
       'Change the email details as per your needs
       With objMail
           .To = "test@datanumen.com"
           .Subject = "Email Notifying Sheet Updates"
           .Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
           'Attach this workbook
           .Attachments.Add ActiveWorkbook.FullName
           .Send
      End With
    End If
End Sub

10. Después de eso, debe guardar este libro como libro de Excel habilitado para macros.

• Primero, cierre la ventana "Microsoft Visual Basic para Aplicaciones".
• Luego, haga clic en "Archivo" en la esquina superior izquierda.
• A continuación, elija "Guardar como".
• En el cuadro de diálogo, opte por "Libro de Excel habilitado para macros" en el campo "Guardar como tipo".
• Por último, haga clic en el botón "Guardar".

11. Finalmente, puede cerrar este libro de trabajo.
12. Ahora, puede abrir el libro de Excel habilitado para macros previamente guardado.
13. Cuando realice cambios en la hoja de trabajo específica, recibirá un mensaje que le preguntará si debe enviar una notificación por correo electrónico.
14. Al hacer clic en el botón "Sí", se enviará un correo electrónico de Outlook a los destinatarios predefinidos.
15. Este correo electrónico se verá como la captura de pantalla a continuación:

Reparar archivo de datos de Outlook dañado

Tal vez alguna vez se haya encontrado con la corrupción de archivos de Excel. En realidad, el archivo de datos de Outlook es tan vulnerable como el archivo de Excel. Por ejemplo, cerrar Outlook de forma incorrecta puede provocar daños en el archivo PST fácilmente. Por lo tanto, es esencial tomar medidas para proteger el archivo de Outlook, incluida la realización de copias de seguridad de datos periódicas y la preparación de una herramienta sólida de reparación de PST, como DataNumen Outlook Repair. Esta utilidad es lo suficientemente potente como para reparar PST problemas y recuperar datos PST.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrección de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com